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Carl-Marcus Weitz 


Programmieren in PEARL 


Die ersten Schritte 


In den folgenden 
Kapiteln geht es um die 
Programmiersprache, die 
in idealer Weise die 
Leistungsfähigkeit von 
RTOS nutzbar macht. Ein 
Betriebssystem ist 
schließlich immer nur 
Grundlage der 
Programme, die unter 
ihm laufen. Daß es hier als 
Programmiersprache 
PEARL vorgestellt wird, 
ist weniger 
verwunderlich, wenn man 
sich die Geschichte des 
RTOS ansieht: es wurde 
ja entwickelt, um für 
PEARL eine geeignete 
Betriebssystem- 
umgebung aufkleineren 
Rechnern zu schaffen. 


Einführung in PEARL 


Der Sprachumfang yon 
PEARL ist in zwei Stufen nach 
DIN genormt. Basic-PEARL 
besitzt einen mit anderen mo- 
dernen Hochsprachen für Mi- 
krocomputer vergleichbaren 
Sprachumfang, Full-PEARL ist 
dagegen so umfangreich wie 
etwa ALGOL 68 und cıgentlich 
nur für den Einsatz auf Groß- 
rechenanlagen geeignet. Der 
Sprachumfang des Compilers 
im RTOS-UH/PEARL-Pakeı 
legt, grob ausgedrückt, ir- 
gendwo zwischen den beiden 
Leistungsstufen. Wenige kleine 
Abweichungen von  Basic- 
PEARL bestehen allerdings 
auch; auf diese wird im folgen- 
den noch hingewiesen 


Wenn man einer neuen Pro- 
grammiersprache begegnet, 
fängt man häufig damit an, daß 
man irgendeinen kleinen Text 
auf den Bildschirm zu schreiben 
versucht. Und genau dieses tut 
das kleine Beispielprogramm 
TESTI. Manchen mag der rela- 
tiv große Kopf des Programmes 
erschrecken für eıne Aufgabe, 


UM-PERML-9.9 


die in BASIC mit dem Einzeiler 
10 PRINT HELLO WORLD’ 


zu erledigen wäre. Doch dieser 
Wasserkopf ist notwendig. um 
die Portabilität der Programme 
zu erreichen. Und zum Glück 
wächst der Umfang des Kopfes 
bei zunehmender Länge des 
Hauptprogramms nicht 
zwangsläufig mit, 


Doch nun zu dem ersten Bei- 
spielprogramm. Die Zeilen | bis 
5 sind Kommentare. Kommen- 
tare dürfen überall dort stehen. 
wo ein Leerzeichen stehen darf. 
also auch mitten in Anweisungs- 
zeilen (was man aus Gründen 
der Übersicht allerdings wohl 
seltener machen wird). Sie wer- 
den vom Compiler zumeist 
ignoriert. Zumeist deshalb, weil 
man, wie bei einigen Pascal- 
Compilern, in Kommentarzei- 
len Compiler-Optionen an- und 
abschalten kann. Doch das ge- 
hört schon zu den höheren Pro- 
grammierweihen und wird spä- 
ter erläutert. Bis dahin nehmen 
wir an. daß alles. was zwischen 
den Endsymbolen *#*" und '*.* 
steht. nur für den Programmie- 
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rORÄE TESTIL 


sysıen, 
TERMı Alı 


n 
12 ProßLenı 


13 SEC TERM DATION INOUT ALEMIC CONTROLIALLIG 


1% 

15 BEISPII TasKı 

' PUT 'MELLO WORLD' TO TERMI 
te OF TASK BEIGPI "/ 


Ein wInziges Übungsprogramm zum ersten Einstieg In 


PEARL. 


rer bestimmt ist. damit er sich in 
seinen Programmen zurechtfin- 
det (und andere Programmierer 
vielleicht auch einmal). Denn 
natürlich könnte man mit eini- 
ger Anstrengung auch in 
PEARL unlesbare Programme 
schreiben. die man schon nach 
einigen Tagen selbst nicht mehr 
versteht, 


Schlüsselwort 
MODULE 


Mit dem Schlüsselwort "MO- 
DULE ın Zeile 7 betreten wir 
eine eigene Welt, die erst mit 
dem Gegenstück "MODEND" 
in Zeile 19 wieder aufhört. In 
dieser Welt kennen sich die 
Tasks. man kann gemeinsame 
Variablen haben und gemein- 
sam Prozeduren und Funktio- 
nen benutzen. Zu beachten ist. 
daß ein solches Objekt. bevor es 
angesprochen werden kann, im 
Programmtext definiert worden 
sein muß, da der Compiler ja ın 
einem einzigen(!) Durchlauf den 
Programmcode erzeugt und na- 
türlich nicht hellschen kann, 
was für ein Datentyp sich hinter 
einer Variablen verbirgt oder 
welche Parameter eine Prozedur 
benötigt 


Hinter MODULE’ kann, ge- 
trennt durch ein Leerzeichen, 
eın Name folgen. der 24 Buch- 
staben lang sein darf. Unter die- 
sem Namen findet man das ge- 
ladene Modul dann später in der 
Speicherverwaltung wieder 
Von der Möglichkeit, ein Mo- 
dul zu benennen, sollte man 
Gebrauch machen, denn man 
will ja eventuell das Modul ir- 
gendwann wieder aus dem Speı- 
cher entfernen. Wird nämlich 
kein Modulname angegeben, so 
nennt RTOS das Modul einfach 
‘UNLBLD' (unlabeled), und 
man weiß dann bei mehreren 
Modulen nicht, welches man 
löscht. Denn mit "UNLOAD 
Modulname' löscht man immer 
das erste Modul dieses Namens 


2 


in der Speicherverwaltung (des- 
halb sollte man auch überein- 
stimmende Modulnamen ver- 
meiden). 


Die Welt, in die wir soeben ein- 
getreten sind, fängt (wie so man- 
che andere Welt auch) mit Ver- 


waltung an. Doch zum Glück ist 
diese Verwaltung noch über- 
schaubar. Unser Modul möchte 
nämlich wissen, was es außer- 
halb seiner Welt gibt, wie das 
Rechnersystem aussieht. auf 
dem es läuft. wie die Ansprech- 
partner für Eın- und Ausgabe 
heißen. Dies teilen wir hinter 


c’t-Userport unter PEARL 


Das RTOS-UH PEARL-Paket für dıe Atarı-ST-Serie unter- 
stützt den c’t-Userport. der je 16 Leitungen für die Eın- und 
Ausgabe von Daten zur Verfügung stellt (siehe c't 3/86). Wer 
den Beitrag gelesen hat. wırd sıch erinnern. daß für dıe Ausgabe 
über den ROM-Port desST ein Trick verwendet werden mußte. 
weilder Rechner keine Schreiboperationen aufdie betreffenden 
Adressen gestattet: Die Datenausgabe erfolgt durch Lesen be- 
stimmter Adressen 


Ein Hochsprachen-Compiler macht solche Tricks normaler- 
weise natürlich nicht mit, jedenfalls nicht mit einer schlüssıgen 
sprachlichen Konstruktion. Anders der UH-Compiler: er bot 
in einer Variante für das Force-Profikit schon dıe Möglichkeit, 
auf einen speziellen Unterbus (P-Bus) zuzugreifen. Dieses Fea- 
ture wurde beim Atarı ST zur Unterstützung des Userports 
"umgebogen‘. Um dıe 16 Ausgabeleitungen als Datenstation 
nutzen zu können, kann man nun folgende Konstruktion ver- 
wenden: 


SYSTEM, 

PORT: BU(0203)- >; 

PROBLEM; 

SPC PORT DATION OUT BASIC, 
AUSGAB: TASK; 

DCL DATA BIT(16); 

SEND DATA TO PORT, 


Die Eingabeports und übrigen Register des ST-Userports kön- 
nen ganz einfach als Datenstationen mit dem Namen BU und 
ihrer jeweiligen Adresse verwendet werden, also beispielsweise 
der Eingabeport für direkten Zugriff unter BU(02FAFFFB), 
wobei das erste Byte des Ausdrucks in Klamniern die Zugriffs- 
art beschreibt (siehe Handbuch). 
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dem Schlüsselwort ‘SYSTEM’ 
dem Modul mit. In unserem 
Beispiel besteht die Außenwelt 
für das Modul nur aus dem Ter- 
minal, dem hier der Name 
"TERM' gegeben wird. Dieser 
Name ist frei wählbar, man 
kann sogar als modul-internen 
Namen den Namen der zugehö- 
rigen Datenstation, Al (siehe 
Abschnitt A-II), nehmen. Unter 
diesem Namen wird von nun an 
das Terminal angesprochen. 


Mancher wird sich jetzt natür- 
lich fragen, wozu so ein System- 
teil eigentlich gut ist. Ein Punkt 
ist dieschon oben erwähnte Por- 
tabilität: wenn ein Programm 
auf einem anderem Rechnersy- 
stem laufen soll, muß man im 
Idealfall nur den Systemteil än- 
dern. Aber auch für den Pro- 
grammierer, der nur für ein 
Rechnersystem schreibt, kann 
er nützlich sein: man braucht 
nämlich nur den Namen der 
Datenstation im Systemteil än- 
dern, und schon gehen alle Da- 
ten, die vorher zum Beispiel auf 
den Bildschirm gingen, an den 
Drucker. Doch das wird weiter 
unten noch genauer beschrie- 
ben. 


Der zweite Teil des Modules 
wird in Zeile l2eingeleitet durch 
‘PROBLEM’. Formal gehört 
alles folgende zum Problemteil. 
In dem Problemteil steht alles 
das, was nicht von dem Be- 
triebssystem abhängt, auf dem 
das Programm laufen soll. 
Wenn jemand ein Programm 
betriebssystemunabhängig 
schreibt, kann er auf den Sy- 
stemteil verzichten und gleich 
mit dem Problemteil beginnen. 
Um eine lauffähige Version zu 
erhalten, muß dann nur noch 
für das vorgesehene Betriebssy- 
stem ein Systemteil eingefügt 
werden. 


Nachdem den Datenstationen 
des Betriebssystems nun logi- 
sche Namen für das Modul zu- 
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geordnet sind, müssen diese 
noch genauer bezüglich ihrer Ei- 
genschaften beschrieben wer- 
den. Einem Terminal beispiels- 
weise sollen Zahlen, die rechner- 
intern binär codiert sind, in den 
ASCII-Code umgewandelt zu- 


Spezifizieren 
und deklarieren 


gesandt werden. Von einem 
Drucker darf beispielsweise 
keine Eingabe erwartet werden. 
Für jede im Systemteil aufge- 
führte Datenstation muß des- 
halb im ‘'PROBLEM'-Teil eine 
Beschreibung, eingeleitet durch 
‘SPC’ oder 'SPECIFY', stehen. 
Die Möglichkeiten hier aufzu- 
zählen, wie diese Beschreibung 
ausschen kann, würde zu weit 
führen, da PEARL für die un- 
terschiedlichsten Datenstatio- 
nen Beschreibungsmöglichkei- 
ten vorsieht, vom Meßfühler bis 
zur Datenfernübertragungssta- 
tion. Deshalb hier nur das, was 
zur Beschreibung unseres Ter- 
minals notwendig ist: 


Hinter dem ‘SPC’ steht der 
Name, den wır der Datenstation 
zugewiesen hatten, hier also 
‘TERM’, gefolgt von dem 
Schlüsselwort 'DATION', da- 
mit der Compiler weiß, daß es 
sich hier um eine Datenstations- 
beschreibung handelt. 'INOUT* 
bedeutet, daß sowohl Eingabe 
(über die Tastatur) als auch 
Ausgabe (über den Bildschirm) 
möglich ıst. "“ALPHIC" besagt, 
daß Zahlen und Bitmuster in die 
entsprechenden ASCII-Codes 
umgewandelt werden sollen, be- 
ziehungsweise umgekehrt bei 
der Eingabe, daß ASCII-Codes 
in Bitmuster und Zahlen umzu- 
setzen sind. Mit ‘CONTROL 
(ALL)' wird schließlich gesagt, 
daß diese Datenstation Con- 
trol-Zeichen wie CR (Carniage 
Return, Ausgabe in erster 
Spalte fortsetzen) und LF (Line 
Feed, Zeilenvorschub) versteht, 


die zur formatierten Ausgabe 
von Text auf Bildschirm oder 
Drucker notwendig sind. 


Die erste Task 


So, die Verwaltung wäre ge- 
schafft, unsere erste Task be- 
ginnt, und zwar mit ihrem Na- 
men und, durch Doppelpunkt 
getrennt, der Information, daß 
es sich tatsächlich um eine sol- 
che handelt, indem es dort als 
Schlüsselwort steht: "TASK. 
Durch Eingabe dieses Namens 
wird dann später die Task ge- 
startet. Beachtenswert auch 
hier, daß Namen nicht doppelt 
auftauchen sollten, auch nicht 
in verschiedenen Modulen. 


Und damit wären wir bei der 
eigentlichen Aufgabe angelangt, 
für die das ganze Modul ge- 
schrieben wurde: in Zeile 16 
wird der Text "HELLO 
WORLD" auf den Bildschirm 
geschrieben. Der Befehl 'PUT', 
der dieses bewirkt, wird gefolgt 
von den Operanden, hier nur 
dem String'HELLO WORLD, 
Sie werden später noch sehen, 
daß hier auch mehrere Operan- 
den verschiedener Art stehen 
dürfen. Mit TO’ ist die Operan- 
denliste dann abgeschlossen, 
und als nächstes folgt Name der 
Datenstation als Zielangabe für 
die Ausgabe. Die Task wird 
durch 'END* abgeschlossen, 
und mit ‘MODEND', das man 
nıcht vergessen darf, ist das Pro- 
gramm fertig. 


Wer dieses Programm als ED- 
File ED.SI eingegeben hat, 
braucht jetzt nur noch mit "ESC 
X’ den Editor wieder zu verlas- 
sen, ‘P', 'LOAD' und ‘BEISPI' 
einzugeben und erhält (soer sich 
nicht vertippt und der Compiler 
nicht deshalb angemahnt hat) 
dıe freundliche Begrüßung auf 
den Bildschirm. s 


Mehrere Tasks 
gleichzeitig 


‘Das hätte man aber einfacher 
haben können! wird jetzt so 
mancher mit Blick auf den 
BASIC-Einzeiler oder andere 
Programmiersprachen denken. 
Aber dieses erste Programm war 
ja auch nicht gedacht, um die 
Leistungsfähigkeit von PEARL 
zu demonstrieren, sondern um 
das Gerüst vorzustellen, das 


UM-ELARL 3.3 
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9 SvSTem: 

10 TERM: at: 
u 

12 PROBEN; 

13 


—ounnnne0nnee. 


cu ı FLoat; 
DCL LEER FIREDISI: 


Eu REST: TASe PRID 01 


6 Berta 

«7 LEERLAUF » LEERLAUF + Ir 
28 [071 

I END; ve 06 Tasa mEST es 


2 START: TASK PRIO 38; 


33 DCL FELDILON FLOATE 
3. 2.1.07 
3 LEEMLAF «01 


3 AL oO 
ACHIVRTE AESTI 


FOR I FROM ı 10 10 REbgaT 
“ rad en 

“ BETER 0.2 SEC BERME; 
End; 


EREVENT ACTION: 
® TERMINGTE REST, 


FUT TO TERM Er (Ir 


10 TERM br A,SKip; 
FoR ı From ı 10 10 REPEAT 


End; 


Edi te 08 TASK START #/ 


1 /ennanunnunsnnnnnennenen nennen en 
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SEC TERM DATION INDUT ALPMIC CONTROL AALLIG 


» 10 TERm br 


’* Endionschleife #/ 


® Erde der Ensiesscnleife »/ 


/* ınıtialisiere Rechenvariable #/ 


0% SEC ACTIVRTE ACTION: /e plane ACTION win #/ 
ie starte Tank BEST #7 


ve nimm BETION aus zyklischer Einplanung ®/ 
/* ericese REST aus Enalosscnleife #/ 


BUT !Hechenwariable nach jeweils 0, 


BUT is, FELDITD TO TERM Br Fi6, 1), FAR), SAIPı 


BUT 'Leerlaufinden: ",LEERLEOF TO TERM Br SKIP,A,FLBI, SKIP: 


jetzt weiter ausgefüllt werden 
soll. Und zwar gleich mıt meh- 
reren Tasks, um zu demonstrie- 
ren, welche Möglichkeiten sich 
dem Programmierer durch 
“Multitasking unter RTOS er- 
öffnen. 


Dazu soll eine Task (AC- 


TION’) alle 50 Millisekunden 
den Wert einer Variablen, ihr 
Quadrat und den Sinus auf den 
Bildschirm ausgeben und für 
den nächsten Durchlauf ihren 
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riable / 
able fier Restzeit #/ 


Fir, Fiar,Ei12,2,581P1 


re Leerlaufinden #/ 


/* registriere, mie weit Tank #/ 
(® ACTION schen ist [ZZ 
Ie warte win wenig ®/ 


/* gib 2 Leerzeilen aus #/ 
1 


/# gib registrierte Werte aus #/ 


In diesem Beispielprogramm arbeiten bereits mehrere 
Tasks zusammen. 


Wert um | erhöhen. Bei dieser 
Aufgabe soll sie eine andere 
Task (‘START’) beobachten 
und in gleichmäßigen Abstän- 
den den Wert, den dieerste Task 
gerade bearbeitet, speichern, 
um ihn später anzuzeigen. Diese 
Task soll auch die Ein- und Aus- 
planung der ersten Task vor- 
nehmen sowie eine dritte Task 
starten, die in einer Endlos- 
schleife ihre Runden dreht, da- 
bei eine Variable hochzählend, 
die als Maß für die Anzahl der 
gedrehten Runden steht. Späte- 
stens bei diesem Programm 
zeigt sıch, daß PEARL eine et- 
was andere Sprache ist als die 
meisten anderen. Denn wenn 
ein Programm in einer anderen 
Programmiersprache etwas wie 


10 GOTO 10 


enthält, hilft meist nur noch 
‘Break’, ‘Reset’ oder gar Aus- 
schalten des Rechners. Sinnvoll 
einsetzen läßt es sich jedenfalls 
nicht. Ganz anders hier: die 
Task REST soll ja gar nicht von 
allein zur Ruhe kommen, und 
dafür ist eine Endlosschleife ge- 
nau das richtige Mittel. 


Eine Endlosschleife besteht aus 
dem Schlüsselwort "REPEAT' 
(Zeile 26) und einem ‘END’ 
(Zeile 28). Jedesmal, wenn eıne 
Task auf so ein Schleifen-"END" 
läuft, beginnt sie wieder bei dem 
dazugehörigen "REPEAT'. Bei 
den normalen Schleifen mit 
Ende steht dann vor dem 'RE- 
PEAT' die Abbruchbedingung 
(WHILE Bedingung REPEAT 
... END;), ein Schleifenindex 
(FOR Zählvariable FROM An- 
fangswert BY Schrittweite TO 
Endwert REPEAT END:;) 
oder auch, was auch nicht ganz 
gewöhnlich ist, beides (FOR 
Zählvariable FROM Anfangs- 
wert BY Schrittweite TO End- 
wert WHILE Bedingung RE- 
PEAT ... END;). Letzteres ist 
eine erlaubte Konstruktion ın 
PEARL. durch die man sich vor 
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ungewollten Endlosschleifen 
schützen kann, indem man au- 
Ber einer Abbruchbedingung, 
von der man nicht sicher weiß, 
ob sie eintritt, noch eine Schlei- 
fenzählung einrichtet und bei 
Fernbleiben der Abbruchbedin- 
gung dann eben spätestens nach 
10000 Schleifendurchläufen 
oder so ähnlich abbricht. 


Steht nun aber vor dem 'RE- 
PEAT' nichts, so ist die Schlei- 
fenbedingung immer erfüllt, 
und wir haben unsere Endlos- 
schleife. Ist aber eine Schleifen- 
bedingung angegeben und nicht 
erfüllt oder eine Schleifenzäh- 
lung abgelaufen, so wird die 
Task hinter dem Schleifen- 
"END fortgesetzt. Beispiele für 
Schleifen mit Zählvarıable fin- 
den sich ın den Zeilen 39 - 42 
und 50 - 52. Die Zählvariable ‘I 
muß nicht, wie etwa ın C, aus- 
drücklich deklariert werden, da 
sie immer vom Typ ‘'FIXED', 
also ganzzahlıg sein muß; sie 
kann dann aber nur innerhalb 
der Schleife benutzt werden. Die 
Schrittweite wird automatisch 
mit | angenommen, falls nicht 
anders angegeben 


Doch schön der Reihe nach: 
Was passiert eigentlich, wenn 
man, nachdem man das Modul 
fehlerfrei abgetippt, übersetzt 
und geladen hat, mit ‘START' 
die Task selbigen Namens akti- 
viert? Im Quelltext fällt bei die- 
sem Task-Namen der Zusatz 
‘PRIO 38° auf. Ähnliche Zu- 
sätze haben auch die anderen 
Tasks in dem Modul, nur mit 
anderen Zahlen. Hierdurch be- 
kommen die Tasks eine Priori- 
tät zugewiesen. Wenn mehrere 
Tasks gleichzeitig laufen dürfen, 
muß ja irgendwie entschieden 
werden, welche den Prozessor 
zugeteilt bekommt, und das ist 
die mit der höchsten Priorität 
Für unser Modul bedeutet das, 
daß, wenn alle Tasks laufen dür- 
fen, zuerst START an der Reihe 
ist, bis sie nicht mehr darf, dann 
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ACTION und ganz zuletzt 
REST. Wie sich dies auswirkt, 
wird gleich beschrieben. 


Erst einmal haben wir in Zeile 
33 eine Variablendeklaration, 
und zwar nicht nur eine einzelne 
Variable, sondern gleich ein 
ganzes Feld. Dieses Feld ist ein- 
dimensional und enthält als Ele- 
mente zehn *FLOAT'ing- 
Point-Zahlen. Dieses Feld ist 
"local', es kann also nur inner- 
halb der Task START darauf 
zugegriffen werden, außerhalb 
ıstes unbekannt. Anders sieht es 
diesbezüglich mit ‘X’ in der 
nächsten Zeile aus. Dies ist eine 
‘globale’ Variable, auf die alle 
Tasks ım Modul zugreifen kön- 
nen. Deshalb muß sie auch au- 
Berhalb aller Tasks deklariert 
werden, was in Zeile 15 gesche- 
hen ist. Damit sie einen definier- 
ten Wert hat, wird ihr in Zeile 34 
einer zugewiesen. Selbiges ge- 
schieht mit LEERLAUF, auch 
einer globalen Variablen, in 
Zeile 35. 


In Zeile 36 wird nun ein Zug der 
Leistungsfähigkeit von PEARL 
sichtbar: hier weist nämlich die 
Task START das Betriebssy- 
stem an, alle 50 Millisekunden 
doch bitte die Task ACTION zu 
starten. Und sofort wird mıt 
Zeile 37 die Task REST gestar- 
tet. Das bedeutet nun aber noch 
lange nicht, daß ACTION oder 
REST jetzt tatsächlich schon 
anfangen zu laufen. Davor hat 
das Betriebssystem die Prioritä- 
ten gesetzt, und die besagen, 
daß, obwohl ACTION und 
REST jetzt laufen dürfen, erst- 
mal noch START weiterläuft, 
da sie die höchste Priorität hat. 
Also weiter in der Task START. 
Als nächstes kommt die schon 
weiter oben erwähnte Schleife. 
In dieser Schleife liest START 
den Wert von X in das Feld 
FELD ein. Das wäre aber schön 
langweilig, wenn sich nichts an 
dem Wert von X täte, und des- 
halb wırd hier eine weitere Spe- 


zialität von PEARL eingesetzt: 
mit dem Befehl ‘AFTER Zeit- 
dauer RESUME!’ kann sich ein 
Programm selbst für die Zeit- 
dauer abmelden, wenn es mo- 
mentan nichts mehr zu tun hat, 
und das Betriebssystem bitten, 
es danach wieder aufzuwecken 
und weiterlaufen zu lassen. 


Und damit ist endlich der Au- 
genblick gekommen, in dem 
ACTION losläuft, die ja schon 
seit Zeile 36 schnsüchtig darauf 
wartet. Aber ACTION ist ein 
Sprinter, schon nach etwa 30 
Millisekunden ist sie fertig und 
damit der Weg frei für REST, 
sich mit atemberaubendem 
Tempo im Kreise zu drehen. 
Doch dies währt nicht lange, 
denn alle 50 Millisekunden 
sollte Ja ACTION laufen, und 
da ACTION eine höhere Prio- 
rität hat als REST, ist für REST 
der Spaß nach längstens 20 Mil- 
lisekunden vorbei, und sie muß 
wieder warten, bis ACTION 
fertig ist. So wechseln sich diese 
beiden Tasks ab, bis dem Be- 
triebssystem einfällt, daß es ja 
START nach 200 Millisekun- 
den wieder wecken sollte, und 
da START unter den Dreien die 
höchste Priorität hat, müssen 
ACTION und REST warten, 
bis START den inzwischen von 
ACTION fleißig inkrementier- 
ten Wert von X in FELD abge- 
speichert hat und das Spiel von 
neuem losgeht. 


Jeder Spaß hat irgendwann ein 
Ende, und dieser Zeitpunkt ist 
für ACTION und REST ge- 
kommen, wenn START fest- 
stellt, daß das FELD voll ist. 
Dann verläßt sıe nämlich ihre 
Schleife, läßt als erstes das Be- 
triebssystem die regelmäßige 
Einplanung von ACTION mit 
‘PREVENT’ zurücknehmen 
und befreit REST mit ‘TER- 
MINATE' aus ihrer Endlos- 
schleife. Diese beiden Befehle 
haben die gleiche Wirkung wie 
die gleichnamigen Bedienerbe- 
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fehle; sie haben zur Folge, daß 
ACTION und REST wieder in 
den Status ‘DORM" wie dor- 
mant oder schlafend verfallen 


Bevor wir uns jedoch weiter der 
Task START widmen, wollen 
wir uns noch ansehen. was 
START so beobachtet hat. We- 
nig verwunderlich ist, daß AC- 
TION zwischen zwei Beobach- 
tungen X um 4 hochgezählt hat. 
bei 50 Millisekunden Perioden- 
zeit für ACTION und 200 Mil- 
lisekunden Wartezeit für 
START entspricht das den Er- 
wartungen. Erstaunlicher ist da 
wohl schon eher, daß die auf 
miedrigster Priorität laufende 
Task REST ın den zwei Sekun- 
den, in denen sie überhaupt 
lauffähig war, sich immerhin 
noch rund 95000mal ım Kreise 
drehen konnte, obwohl in der 
ATARI-Implementation von 
RTOS ja eine Terminal-Emula- 
tion enthalten ist und der Pro- 
zessor somit noch etliche Pixel 
beim Scrollen über den Bild- 
schirm zu schieben hatte. 


Doch nun zurück zu der Task 
START, die nun auf dem Bild- 
schirm anzeigt, was sie beobach- 
tet hat. Dabei fällt als erstes in 
Zeile 47 auf, daß das TO’ direkt 
auf das ‘PUT’ folgt. Diese Aus- 
gabeanweisung dient nur dazu, 
zwei 'SKIP's, die Zeilenvor- 
schübe bewirken, abzusetzen. 
Hinter ‘BY’ kann man in Eın- 
und Ausgabeanweisungen an 
Datenstationen vom Typ 'AL- 
PHIC’ Angaben machen, wie 
dıe Ein-/Ausgabe aussehen soll. 
In einer Ausgabeanweisung be- 
deutet ein ‘SKIP’, daß ein Zei- 
lenvorschub gemacht werden 
soll. Für die auszugebenden 
Daten kann man angeben, wıe 
lang (in Zeichen) die Ausgabe 
werden soll. So könnte man ın 
unserem kleinen Beispiel hinter 
‘TO TERM’ noch ‘BY SKIP, 
A,SKIP;' anfügen, um vor und 
hinter dem Text je eine Leerzeile 
auszugeben. Das ‘A’ steht für 
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die Ausgabe von Daten des 
Typs ‘CHAR’, die keiner Län- 
genbeschränkung unterliegen. 


Will man es sich mit dem For- 
matieren einfacher machen. so 
kann man auch einfach anstelle 
des "A' ein 'LIST’ angeben. Die- 
ses’LIST’ erlaubt dann aber alle 
Datentypen, man könnte also 
auch eine Zahl ausgeben, ohne 
das Format zu ändern. Um 
Wiederholungen zu reduzieren, 
erlaubt PEARL für dıe meisten 
Formatierungsangaben einen 
Multiplikator, der in Klammern 
vor den mehrfach zu benutzen- 
den Angaben steht. ‘(2)SKIP' 
steht also für "SKIP,SKIP'. Die 
Ausgabe der Überschrift für die 
Beobachtungsergebnisse macht 
deutlich, daß PEARL-Anwei- 
sungen auch über Zeilengrenzen 
hinweggehen dürfen. 


Etwas Neues finden Sie in Zeile 
51, denn hier werden zum ersten 
Mal Zahlen ausgegeben. Die 
auszugebenden Werte sind 1/5 
und FELD(I), dem Typ nach 
also beides FLOAT-Zahlen 
(Division zweier FIXED ergibt 
FLOAT), die rechnerintern ın 
Exponentialdarstellung verar- 
beitet werden. Durch die An- 
gabe des Ausgabeformates 'F' 
werden nun die Zahlen in eine 
Darstellung ohne Exponenten 
umgewandelt, solange sie in das 
in Klammern angegebene Feld 
passen. Wollte man aber IE-05 
mit einer Formatangabe F(6) 
ausgeben, so würde 0.00001 
nicht in das 6 Zeichen lange Feld 
passen und statt der Zahl '* 
ausgegeben. zur Kennzeich- 
nung, daß die Feldgröße nicht 
ausreichte. Der zweite Parame- 
ter gibt übrigens die Anzahl der 
Stellen hinter dem Komma an, 
die angezeigt werden. 


Zeile 53 schließlich zeigt, daß 
man auch Zahlen und Text ge- 
mischt ın einer ‘PUT’-Anwei- 
sung ausgeben kann, es müssen 
nur die Operanden vorne und 


die Formatangaben hinten typ- 
mäßig übereinstimmen. Er- 
wähnt sei hier auch das 'E'-For- 
mat, wieesin Zeile 20 auftaucht. 
Damit wird bestimmt. daß die 
zugehörigen Zahlen in Expo- 
nentialdarstellung ausgegeben 
werden sollen. Dabeı gibt der 
erste Parameter ın den Klam- 
mern wieder die Länge des Fel- 
des an, in dem die Zahlen dann 
rechtsbündig stehen. und der 
zweite Parameter die Anzahlder 
Nachkomma-Stellen. 


Zum Schluß will ich noch zei- 
gen. wie man sich den Verwal- 
tungskopf zunutze machen 
kann. Die Ausgabedaten des 
zweiten  Beispielprogrammes 
machen sich zwar auf dem Bild- 
schirm auch schr schön, aber für 
diesen Artikel mußten sie ja 
noch irgendwie zu Papier ge- 
bracht werden. Was bot sich da 
eher an, als einfach die Daten 
statt auf den Bildschirm in ein 
ED-File zu schreiben. Als Aus- 
gabestation für Daten, darge- 
stellt im ASCII-Code, ist ein 
ED-File genauso geeignet, und, 
wie sich herausstellen sollte, we- 
sentlich schneller. In dieser Ver- 
sıon des Beispielprogrammes 
schaffte die Task REST näm- 
lich, wie zu lesen, zwischen- 
durch noch über 220.000 Zähl- 
runden. Dies ist auf die schon 
oben erwähnte Pixelschieberei 
der Terminal-Emulation zu- 
rückzuführen. 


Wie bewerkstelligt man eine sol- 
che Datenumleitung? Dazu war 
einfach nur notwendig, die Zeile 
10 folgendermaßen zu modifi- 
zieren: 


TERM: ED.DATA; 


und schon waren dıe Daten vom 
Bildschirm verschwunden und 
nachträglich in dem ED-File 
"ED.DATA' mit dem Editoran- 
zusehen oder von dort auf den 
Drucker zu kopieren. Die ganze 
Anderung dauerte miterneutem 
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Leerlaufindenı 220763 


Ausgabedaten des 
Programms 2, umgelenkt 
In eine Editor-Datel. 


Compiler- und Lader-Aufruf 
keine halbe Minute. 


In dem nächsten Teil dieser 
Reihe geht es um verschiedene 
Möglichkeiten der Eingabe, 
weitere Mittel zur formatierten 
Ausgabe werden vorgestellt, das 
Programm greift auf das Dis- 
kettenlaufwerk zu, und die Da- 
tentypen werden genauer unter- 
sucht. 
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Ein kleines 
Adreßprogramm 


Die letzte Folge dieser Reihe war dem Einstieg in die 
PEARL-Programmierung unter dem Betriebssystem 
RTOS gewidmet. Auch in dieser Folge werden die 
verschiedenen Sprachelemente von PEARL anhand 
eines Beispielprogrammes vorgestellt. Im Gegensatz 
zu den Demonstrationsprogrammen der letzten Folge 
handelt es sich aber diesmal um ein Programm mit 
praktischer Anwendbarkeit, nämlich um ein kleines 
Adreßprogramm mit den Grundfunktionen Eingabe, 
Löschen, sortierte Ausgabe, Suchen, Speichern auf und 
Lesen von Diskette. Natürlich ist es kein Ausbund an 
Bedienungsfreundlichkeit und Leistungsfähigkeit, doch 
wer mehr will, der kann ja den Grundstock beliebig 
erweitern, bis dann vielleicht dBase IV oder V dabei 


herauskommt... 


Dieses Beispielprogramm ist 
umfangreicher als die bısheri- 
gen; und das stellt den PEARL- 
Compiler vor ein Problem. Er 
muß ja gleich an den Anfang des 
Kompilats eine Mitteilung für 
den Lader setzen, aus der her- 
vorgeht, wıe groß das zu la- 
dende Modul ist. Da der UH- 
Compiler aber einphasig arbeı- 
tet - mıt ein Grund für seine 
erstaunliche Schnelligkeit -—, 
weiß er natürlich zu Beginn der 
Übersetzung noch nicht, wie 
umfangreich der Code sein 
wird, den er jetzt zu erzeugen 
hat. 

Der UH-Compiler setzt deshalb 
"by default’ (das heißt, wenn der 
Benutzer es nıcht anders be- 
stimmt) eine Modulgröße von 
sedezimal 2000 beziehungsweise 
dezimal 8192 an. Bei diesem 


Programm läge er damit aller- 
dings falsch; es ist größer, der 
Lader würde eınen Speicherbe- 
reich von zu geringer Größe re- 
servieren und anfangen zu la- 
den, bıs er den Platz belegt hat, 
dann aber merken, daß der 
Compiler ihm einen falschen 
Wert vorgegaukelt hat, und mit 
einem LOADER-INPUT- 
Error aussteigen. 


Deshalb muß man bei größeren 
Programmen mit 

S=hexzahl; 

noch vor MODULE dem Com- 
piler mitteilen, wie groß das 
Programm sein wird; die Größe 
ist sedezimal anzugeben. Den 
Wert entnimmt man der MO- 
DULE-SUMMARY, die nach 
jedem Compiler-Lauf ausgege- 
ben wird. Diese enthält daneben 


auch die Fehleranzahl und eine 
Aufzählung der Tasks und Pro- 
zeduren. Der Compiler schreibt 
LIMIT-ERROR in dıe Sum- 
mary, wenn er feststellt, daß die 
von ihm eingesetzte oder vom 
Programmierer vorgegebene 
Größe nicht ausreicht. Man 
kann übrigens ein Modul auch 
dann laden. wenn es mit einem 
solchen LIMIT-ERROR über- 
setzt worden ıst: dazu gibt es 
beim Lader den SZ-Parameter. 
mit dem die vom Compiler 
übergebene Größenangabe 
überschrieben wird. So kann 
man sich während der Pro- 
grammentwicklung das noch- 
malige Kompilieren eines sonst 
fehlerfreien Modules ersparen 


Wenn man die in der Module- 
Summary angegebene Größe 
und die von mir vorgegebene 
vergleicht, so stellt man fest, daß 
die beiden nicht identisch sind. 
Aber das stört den Lader nicht. 
Eher noch den Benutzer, wenn 
er ın Platznot gerät. Denn der 
Lader reserviert immer soviel 
Platz wie angegeben, egal. wie- 
viel davon nachher tatsächlich 
benötigt wird. Für das (vollwer- 
tige!) Programm 

S=E0000; 

MODULE; 

MODEND; 


würde deshalb der Lader fast 
den gesamten Speicher des 
520ST+ reservieren (896 
KByte), obwohl es nur 20 Byte 
lang ıst. Es empfichlt sich, wäh- 
rend der Programmentwicklung 
dort einen reichlich bemessenen 
Wert einzusetzen, um ihn nicht 
dauernd ändern zu müssen, der 
dann, wenn das Programm an- 
scheinend fehlerfrei ist, auf den 
tatsächlich benötigten Wert be- 
ziehungsweise eine runde Zahl 
knapp oberhalb umgeändert 
wird. 


Nun zu dem SYSTEM-Teil des 
Beispielprogramms: Es mag 
verwundern, daß vor Al kein 


logischer Name für diese Daten- 
station steht. Das rührt daher. 
daß hier als logischer Name in- 
nerhalb des Modules der Name 
der betreffenden Datenstation 
selbst gewählt wurde. In diesem 
Fall kann man "Al: Al:' durch 
"Al: abkürzen. Ebenso ist es 
der Drucker-Datenstation PP 
ergangen. 


Zur Erläuterung der Zeile 11 
muß ich einen kleinen Ausflug 
ın das Betriebssystem machen 
und etwas genauer beschreiben. 
was bei der Eingabe von Daten 
über die Tastatur geschieht. 


Eigentlich läuft der Vorgang 
ähnlich ab wie bei einer Aus- 
gabe. Nehmen wiran, wir wären 
am Anfang einer Zeile. Wenn 
wir jetzt mit PUT irgendetwas 
aufden Bildschirm schreiben, so 
erscheint es hintereinander ın ei- 
ner Zeile, solange wir kein SKIP 
in der Formatangabe haben. Ist 
eine Bildschirmzeile voll, geht es 
in der nächsten weiter. Entspre- 
chend läuft die Eingabe ab: es 
wird aus einer Eingabezeile ge- 
lesen, bis das letzte Zeichen ge- 
lesen ist, und dann geht es in der 
nächsten weiter. Und genau wie 
bei der Ausgabe kann man mit 
einem SKIP ın die nächste Ein- 
gabezeile wechseln. So ein SKIP 
in einer Eingabeanweisung ist 
dabeı nicht zu verwechseln mit 
einem SKIP bei der Ausgabe. 
Wenn in Zeile 155 vor dem A für 
String-Eingabe cın SKIP steht, 
so erfolgt die Eingabe in dersel- 
ben Zeile aufdem Bildschirm, in 
der auch die Eingabeaufforde- 
rung steht 


Was hat man sich aber unter 
einer Eıngabezcile vorzustellen? 
- Das Programm selbst kann die 
Tastatur nıcht lesen. Die Tasta- 
tur ist für einen Prozeßrechner 
eine schr langsame Datensta- 
tion mit langen Wartephasen 
zwischen den einzelnen Zeichen, 
sie wird deshalb von einer Task 
betreut, im Fall der Tastatur 
von #ACIAI. 


Damit die Task. die eine Ein- 
gabe haben möchte, und die 
Betreuungs-Task der Eingabe- 
datenstation miteinander in 
Verbindung treten können, gibt 
es "Communication Elements’. 
abgekürzt CE, die dies ermögli- 
chen. Ein CE ist ein Speicher- 
bereich. den die Task. die Ein- 
oder Ausgabe machen möchte. 
beim Betriebssystem anfordert. 
Meist bekommt sie diesen Spei- 
cher auch zugeteilt. nur wenn sie 
sehr viel davon anfordert, kann 
es vorkommen, daß dieser 
Wunsch nicht sofort befriedigt 
wird. 


Wer dasausprobieren wıll, kann 
ja einmal in einer Schleife 
1000mal irgendein Wort ausge- 
ben lassen und sich unmittelbar 
nach dem Start mit LU den Sta- 
tus dieser Task anschen. Wahr- 
scheinlich wird dort dann 
°CWS” stehen, was soviel be- 
deutet wie "waiting for commu- 
nication workspace' oder aber, 
daß eine CE-Anforderung die- 
ser Task nicht befriedigt wurde. 
Jede Task hat nämlich nur ein 
begrenztes Kontingent an Com- 
munication Workspace, und 
wenn dieses erschöpft ıst, muß 
die Task warten, bis ein CE da- 
durch, daß die Betreuungs-Task 
es abgearbeitet hat, wieder frei 
wird. Für dıe Bildschirmaus- 
gabe des Atari bedeutet das, daß 
alle Zeichen auf dem Schirm er- 
schienen sınd. Dies läuft des- 
halb so, damit nicht eine Task, 
die durch einen Programmıer- 
fehler sehr viel Communication 
Workspace anfordert, dadurch 
den Rechner lahmlegt, weil der 
gesamte Speicher durch CE’s 
belegt ist. 


Für die Eingabe wird also von 
der Task ein CE angefordert 
und mit der Bitte, es mit Daten 
von der Tastatur zu füllen, an 
die Betreuungs-Task #ACIAI 
weitergegeben. Der Datenbe- 
reich dieses CE's, der normaler- 
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Editieren beim Formatieren...? 


Manchen mag gestört haben, daß der Atari ST unter RTOS- 
UH nicht auf Ctrl-A reagierte, wenn man eine Diskette for- 
matıerte, Dies liegt nicht etwa daran, daß der Prozessor damit 
vollends ausgelastet wäre, da der Atari ja zum Formatieren 
seine DMA-Fähigkeit einsetzen kann (im Gegensatz zu vielen 
anderen Rechnern), sondern daran, daß der Kommandopro- 
zessor durch das FORM-Kommando blockiert ist. 


Dies kann man umgehen, indem man das FORM-Kommando 
über den XC-Kanal absetzt. Dazu gibt man 


COPY Al.>XC. 


ein, worauf ein Gleichheitszeichen auf dem Bildschirm er- 
scheint. Dieses Gleichheitszeichen ist der Eingabeprompt der 
COPY-Routine. Jetzt muß man nur noch das FORM- 
Kommando wie gewohnt eintippen und das zweite Gleichheits- 
zeichen mit ‘End of File’ (Ctrl-D) beantworten. Danach kann 


man dann während des Formatierens weiterarbeiten 


weise 128 Byte lang ıst, ist die 
Eingabezeile. Nun gibt die Be- 
treuungstask unserer Task das 
CE gewöhnlich erst wieder zu- 
rück, wenn es voll ıst oder aber, 
wenn ein "Carriage Return’, 
"Line Feed’ oder ‘Ctrl-D’(EOT) 
eingegeben wurde. Soll nur ein 
einzelnes Zeichen von der Ta- 
statur gelesen werden, so müßte 
der Nutzer also dahinter noch 
ein Return’ eingeben, damit es 
an die Task weitergeleitet wırd 
Aber das wollte ich ıhm nicht 
zumuten. Statt dessen habe ich 
mit (TFU=|) vereinbart, daß 
beim Aufruf unter dem Namen 
Xl eın CE an dıe Datenstation 
Al gesandt wird, dessen Daten- 
bereich die Länge | hat und da- 
mit sofort zurückkommt, wenn 
ein einziges Zeichen eingegeben 
ist. So kann man die Eingabe 
natürlich nıcht mehr mit ‘Back- 
space’ korrigieren, und die Be- 
handlung von Eingabefehlern 
ist vom Programm zu machen. 


Jetzt ist auch die Wirkung des 
SKIP für die Eingabe etwas 
deutlicher: durch das SKIP wird 
ein neues CE angefordert. Dies 
ist wichtig, wenn der Nutzer ein- 
mal mehr Zeichen als gefordert 
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eingegeben hat. Nehmen wir an, 
wir hätten eine Eingabe 


GET STRING FROM Al BY 
AB); 
und STRING sei deklariert mit 


CHAR(3). Gibt der Nutzer nun 
"ABCJ ein, so steht danach in 
STRING "ABC". In dem CE 
steht aber noch das 'J', und 
wenn nun, was der Nutzer ja 
nicht ahnen konnte, etwa die 
Frage 

PUT 'Soll ich Ihre Arbeitsdis- 
kette neu formatieren? (J/N) ' 
TO Al: GET ANTWORT 
FROM Al BY Adl); 


kommt, so wird dieses ‘J' natür- 
lich in ANTWORT übernom- 
men. Weitere Erläuterungen 
sınd damit wohl überflüssig... . 


READ und WRITE 


Mit Zeile 13 öffnet sich die Ver- 
bindung zum Massenspeicher. 
Gerade bei einem Programm 
wie diesem ist man ja besonders 
darauf angewiesen. Durch die 
Zuordnung kann man jetzt über 
DF auf die Datei DATEI auf 
der Diskettenstation FO zugrei- 
fen. Dazu kann man GET und 


Bedienbefehle timer-gesteuert 


RTOS/PEARL bietet die verschiedensten Möglichkeiten zur 
zeitlichen oder ereignisgesteuerten Einplanung von Tasks 
(siehe c't 6/86). Solche Einplanungen können aber nur im 
Zusammenhang mit den Befehlen ACTIVATE oder CONTI- 
NUE vereinbart werden. Was tun, um beliebige Befehle des 
Bedieninterpreters quasi timer-gesteuert einsetzen zu können? 


Auch dabei machen sich der COPY-Befehl und die Datensta- 


tion XC nützlich. Mit 


COPY.XXX ED.TIMER>XC.T XXX; 


veranlassen Sıe, daß eine COPY-Subtask mit Namen XXX 
gebildet und sogleich wieder terminiert wird (noch bevor sie die 
zugewiesene Aufgabe in Angriff genommen hat). Die Subtask 
bleıbt deshalb im System und kann nun beispielsweise mit 


AT 15:30:30 XXX 


für eine bestimmte Uhrzeit eingeplant werden. Nun brauchen 
Sie nur noch den Bedienbefehl, der zu diesem Zeitpunkt aus- 
geführt werden soll, in die Editor-Datei ED.TIMER zu schrei- 
ben. Das könnte zum Beispiel, wie im RTOS-Handbuch vor- 
geschlagen, eine Anweisung zum Formatieren der Floppy als 
netter kleiner Gruß an den zweiten Benutzer sein. 
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souaun“ 


HERRULREEIEERRRRRRERRTERKETERDETTERTRTRRERTREERKRTERERERER/ 


ADDRESS 
last undate: 


DATAFASE 
2.06.86 1En40 


ELELTTTTTTETTITTETTTTTTTTTTTTTTETTETTETTLETTETITETTIELIIEITIIE ET 
Sea 
MODE DEI 
SYSsTtenm 
a keyboard, screen 
Xi ALCTFUeIN: tor inzut of 
er gentronics par 
asoress Hıle 8/ 


Hei port u 


DATIOM INOUT ALFHIT CONTROL CHLLIG 
DATION INQUT ALEMIC CONTROL (ALL IR 
DarIOn OUT ALPMIT CONTROL ALLE 
DarIos INOUrT ALFMIC CONTROL ALL IE 
WEITE.READI ENTEY GLOB&; ® bıncıng of global functions 8/ 
TRUE zw BITeH INIT O1" BR 
FALSE Inv EITILI INIT ('0'B35 
bCL MArADk Inv FIIED INIT (© 


R constant geclarations 1 
/8 marımal number nF records 8/ 


TWPE ADDRESS STELCT I/WAME Cmakı20), 


VORNESE CHR (201, 
STRASSE DARIZO), 
FIIED, 
ost DuRı201, 
TELEFON DRIN 
L DATEI) ADDRESS; 


x 
DeL ORTER (30 
Da 


FIIED: 


NOOADE FlIED: nunder of adaresses ın fıle 8/ 


JURUE LTOU HRSESESSRSTIERTELDEREERRREERERLERBRLRFRIRRRERERRERERERRRERNE/ 


an v 


TOU:PROC (CI OELH) RETUENS(OMELI N 
DAL ASC FINED: 48 #or torrespondent ASCHI code of character %, 


ASC = TOFINEDICH: 
IF ASC GE 97 AND ASC LE 
TMEN RETUAN KTOCHERTASC - T215 
Fin: 
BETEN ICh); 


D END: FR 04 procedure LIDL / 


2 sanaa Last a 


HRERSLIEETEREERKUFERKREREHRRERKERERRKRRRERRRRRTRRERRRERER/ 
#0 suche | es non-bBianı Zeichen ın String v 
suanananaa . [LIT 
LASTIPROC ISTR CHEL20)) METUENS f 

bCL NONEL FlıED: 48 painter ın string 8/ 


NO ® Zr 
FOR 1 FROn 20 BY -1 
NONE = 1; 
END: /8 04 BEFEAT loop 1/ 
IF nonkL ED ı 
TMEN NONEL = 0: 
Fin; 
FETUEN INONEL): 
END} /8 04 procedur 


TO 3 WMILE STR,OARITı EO * * KEFEAT 
vn string empty 8/ 


#8 position 04 last non-blani » I #/ 
177 


susae CPADK a 


LLIITTTT 

CrFEDALFROC (nOl FIIED, nO2 FILEDI RETL 
DL 151,52) CHaktanıı /U temp. varıanles to reduce array access #/ 
DCL (C1,C2) FIIED: /U temp. varıadles For Lurrent character 8/ 


51 = DATEI(NOLI.NAME CAT DATELINON) VORNAME: 


PUT verwenden und schrei- 
ben/lesen mit den gleichen For- 
matangaben wie bei der Ein- 
/Ausgabe über das Terminal. In 
diesem Programm verwende ich 
allerdings eine andere Zugriffs- 
methode, die in der jetzigen Im- 
plementation nur für die Daten- 
stationen Floppy und Harddisk 
möglich ist. Es handelt sich um 
den Binär-Transfer von Daten 
mit den Funktionen WRITE 
und READ. 


Wenn man Zahlen mit einem 
PUT auf die Floppy schreibt, so 
werden diese vor dem Schreiben 
in entsprechende ASCII-Codes 
umgewandelt, wobei die For- 
matangaben von Bedeutung 
sind. Wird etwa eine FIXED- 
Variable mit der Formatangabe 
F(8) auf die Floppy geschrieben, 
so werden daraus acht Bytes. 
Weiß man, daß eine FIXED- 
Variable im Speicher nur zwei 
Bytes belegt, möchte man natür- 
lich auch auf der Floppy die 
Daten in dieser Kürze ablegen. 


Dazu dienen READ und 
WRITE. Außerdem können da- 
durch Konvertierungsfehler 


ausgeschlossen werden, denn es 
muß ja beim Schreiben einmal 
von binär nach dezimal und 
beim Lesen wieder von dezimal 
nach binär umgerechnet wer- 
den. Ein weiterer Vorteil besteht 
darin, daß Felder als Ganzes 
geschrieben und gelesen werden 
können, was wesentlich schnel- 
ler geht als die Übertragung ele- 
mentweise. 


Ein Nachteil der so erstellten 
Dateien ist, daß sie nicht mehr 
mit dem COPY-Befehl kopiert 
werden können. Binäre Daten 
dürfen ja beliebige Werte an- 
nehmen, also auch solche, die 
COPY als Steuerzeichen inter- 
pretiert. Wenn unter den Daten 
irgendwo zufällig der Wert $04 
auftauchte, das ASCII-Steuer- 
zeichen EOT (End-Of-Text). 
würde COPY die Übertragung 
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78 57 = DATEL(NODI.NAME CAT DATEI INOD). VORNAMEN 
4) FOR I TO 40 REFEAT 

90 CI = TOFIIED (LTOUISI.CHARITI NIE 

81 C2 = TOFITED (LTOUISI.CHAR(HI IDG 

e2 IFCILTC 

8 THEN RETURN (FALSE) /® 0: Name | alphanetisch vor Name 2 1/ 
84 FIN; 

BS IF CI 6T CI 

86 THEN RETURN (TRUE): a Iı Name | alphabetisch hinter Name D 8/ 
87 FIN; 

88 END: /8 04 REFEAT loop 8/ 
8° RETURN (FALSENG 

90 END: /8 04 procedure CMPADE #/ 
n 

23 

97 /uas0 CONCAT HRRHEERAHANEEEEERRUNUAEREHRRRRTREEREREREREAERRNNRRERKIUREN/ 
04 78 #uege zwei Strings „ unterdrueche abschliessende Blanis #/ 
95 /uuuszunnaanaanannee ELLLELLTELTFSTTTTTTILLELELETETOITTECTIT 


AU wenn Namen gleich 8/ 


96 CONCATIFROC (STRI CHAR(2O),STRD CHARI2ON) RETURNSICHARLAL DE 
tor concatenated string #/ 
non-blani char ın stringi 8/ 
/& pointer to last non-blans char in stringD #/ 


97 DELESIR MARIAN: 

8  DEL LASTEL FIXED: 

9° DEL LSTEL2 FIIEDI 

100 

101 LASTEL = LASTISTRUIG 
LSTEL2 = LASTISTRDIF 

1 CSIR = STRI: 

108 IF LSTELZ NE 0 1% only ı# second string not empty 8/ 

10% THEN FOR I TO LSTELT REPEAT 

106 CSTR.CHARIT-LASTEL) = STR2.CHARITDE 

107 END: /8 04 REFERAT loop #7 

108 Fin; 

109 RETURN (ESTRI: /& transter concatenated string W/ 

110 EnDi /# 04 procedure CONCAT 8/ 

1m 


114 /# sortiere nach N 
11n /unaaaennanneeneee 
116 SORTIFROCH 
117 DEL TEMP FIXED: 
118 
FOR I TO NOOADR REPEAT +8 init ORDER array 8/ 
ORDER(T) = 15 
END: /8 0# REPEAT loop #/ 
FOR I TO NOOADR REPEAT 
FOR J TO NOOADR - 1 REPEAT 
IF CMPADRIORDER(J) ,ORDER(Je1))  /8 amap if wrong order #/ 
THEN TEMP = ORDER(J); 
ORDER (J) = ORDER (Jel)5 
ORDER(J»1) = TEMPL 
rim 
END: /8 04 REPEAT loop #/ 
170 END: /8 of REFEAT loop 8/ 
121 END; /0 of procedure SORT 8/ 
132 
137 
174 /sa2a SEARCH 8 
133 /8 suche nach 
126 / 
177 SEARCHIPROC (NAME CHAR? 
I Eee fee Br 
129 FOR I FROM FIRST TO MALADR REFERAT 
140 IF mane EO DATEI(T) NAME 
141 THEN RETURN (Di /# matching record found #/ 
142 Fin 
147 ENDı /8 of REPEAT loop #/ 
144 RETURN (011 /A no record =ith matenıng name found #8/ 
14% END: /#8 of procedure SEARCH 87 


ELTEITETELETTETTIETEREITELTEEETEEELELEETEETEIEITTT TG 
tz mit vebereinstimnenden Namen 


151 GETADRIPROC RETURNS (ADDRESS) } 

152 DCL ADK ADDRESSI 

133 

188 PUT Name * TO AL BY (DISKIP,A 
125 GET ADR.NAME FROM Al BY Sr IP,Aı 

156 PUT "Vornaneı " TO Al BY SKIP,Aı 
157 GET ADR.VORNAME FROM Al BY SrIP,Aı 
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abbrechen. Ebenso würde 
COPY anhalten, wenn $13 
(XOFF, Transmission-OFF) 
erscheint, und dann ewig warten 
auf ein erlösendes SII (XON, 
Transmission-ON). Deshalb 
kann man mit diesem Dateipro- 
gramm erstellte Dateien nur ko- 
pieren, indem man das Pro- 
gramm startet, eine Datei von 
der Diskette liest, die andere 
Diskette einlegt und dann den 
Befehl zum Schreiben der Datei 
gibt 


Die Funktionen READ und 
WRITE gehören nicht zu den 
Standardfunktionen eines 
PEARL-Compilers. Sie müssen 
deshalb als globale Funktionen 
spezifiziert werden. Man hat ja 
unter RTOS/UH die Möglich- 
keit, mehrere Module zusam- 
menzubinden und Variable, 
Prozeduren, Funktionen und 
Tasks aus anderen Modulen an- 
zusprechen. Diese müssen aber 
in dem Modul bekannt gemacht 
werden, bevor auf sie zugegrif- 
fen werden kann. Dazu dient 
wieder eine SPECIFY-Anwei- 
sung, die ja schon in der letzten 
Folge als Mittel zur Verbindung 
mit der Welt außerhalb eines 
Modules vorgestellt wurde. 


Durch die Klammern zusam- 
mengefaßt, können wir WRITE 
und READ gemeinsam spezifi- 
zieren. ENTRY besagt, daß es 
sich um Prozeduren handelt, 
und GLOBAL, daß sıe sich 
nicht in diesem Modul befinden. 
Denn man kann auch Prozedu- 
ren, Funktionen und Tasks spe- 
zifizieren, die in dem Modul 
sind. Dies ıst notwendig, wenn 
ein solches Objekt hinter einer 
Referenz im Programmtext 
steht (Vorwärtsbezug). Häufig 
läßt sich dıeses vermeiden durch 
Umstellung des Programmtex- 
tes, manchmal aber auch nicht, 
oder esist zumühsam, und dann 
wird dem Compiler eben durch 
ein SPECIFY mitgeteilt, daß 
sich hinter XYZ eine Task oder 
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Fur" " TO Aal Br SKIP,A: 

Ger FRON Al Er Sr IPA: 
Fur ' 10 AI Br SIP,M 

Ger . FROm al BY SIP,Fiel: 


FUT "Ort "mar br DIP,a 


Gr . FROM AI BY D1P,A; 
Pur" s " TO AI BY SIP,A 
GET ADR, TELEFON FROM Al Er DPA: 


BETUEN (ADEIS 
END: /8 04 procesure GETADR 87 


ss, DuTFur DArIOon OUT ALPHIC CONTROL IALL) IDENTIG 


CONCAT IADE, VORNAME ADR.NAME) 


WUTFUT BY (DIS PAR 
ADK. STRASSE 

wurur br D IP, 
ADR.FL2." " „MDR.ORT 
ourmur Br Sir,Fiar,a,a 
ADE. TELEFON 


LOAD FROCH 


CALL BEWIND IDF\; 

CALL KEAD (DE „NOOADEDATEIN: 

IE NOOADE GT MELADE (a ungu 
or fi 


Ertı 78 04 Srocesure LORD 87 


ige Orcesse #/ 
rassen vertuegbar 8/ 


BIORRTIIEEFTEREUERARIERTERTRRERTERERRRERRERREREER/ 
Innalt auf Dissette v 


IF noonok Eu © 


TEN PUT 'reıne Adressen vorhanden zum Speichern" 


TO AI Br SIP,A,S IP; 
48 nit procedure 8 


seruan: 
ein 
CaL FEWIND (DE: 


TALL WEITE (DF,NOORDR,DATEII; 


LOSE Dfi 
END: ’8 04 procedure SUE 0/ 


BETUENS (CHAR) 
DeL OR Hart 


CL PUTADE HADR,AIN 
PUT FRAGE TO Al EI SHIP,A; 
GET OHk FROM 21 Er SHIP.R; 
= LTD; 
IF CHR EO ’E* 
TWEN ErIT = TRUE 
Fin 
ır CHR EO '0' 
THEN CALL FUTADRIRDR,FFIL 
FIN; 
FETLEN (Om); 
END) /8 04 procedure SELECT 0/ 
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DC (MDR ADDEESS,FFAGE OWAIID),EIIT BITEH) IDENTI 


Prozedur verbirgt, die später 
noch auftaucht. Kommt sie 
nicht vor, ist dies natürlich ein 
Fehler. 


Der Datentyp BIT 

Was in Pascal "boolean’, ist in 
PEARL BIT(I). denn natürlich 
braucht man auch hier die Mög- 
lichkeit, logische Ergebnisse zu 
speichern. Die Deklaration ci- 
ner solchen BIT-Variablen ıst in 
Zeile 243 zu schen. Aus der 
Klammer mit der Zahlenangabe 
I läßt sich erschen, daß man 
auch BIT-Variablen größerer 
Länge deklarieren kann, BIT(8) 
enthielte 8 Bit. die dann aber 
gemeinsam keine logische Be- 
deutung mehr im Sinne von 
"wahr und falsch” haben. 
"Wahr’ ist eine BIT(1)-Variable. 
wenn sie den Wert 'I"B enthält 
und ‘falsch’, wenn sıe '0'B ent- 
hält. Allgemein werden Binär- 
werte durch Hochkommata ein- 
geschlossen und durch ein an- 
gehängtes B gekennzeichnet. 
Zur Vereinfachung kann man 
Binärwerte aber auch oktal mit 
angehängtem B3 oder sedezimal 
mit angehängten B4 schreiben. 
Folgende Werte sind also gleich: 
"01011110°B, '136°B3, "SE’B4. 


Zur Verbesserung der Lesbar- 
keit habe ich "wahr" und falsch” 
in den Zeilen 23 und 24 als Kon- 
stanten TRUE und FALSE de- 
klariert. Dazu wird in die nor- 
male Variablendeklaration eın 
INV (invarianı) hinter dem Na- 
men eingefügt und eine An- 
fangswertangabe INIT(an- 
fangswert) angehängt. Miteiner 
solchen Anfangswertangabe 
kann man auch Variablen initia- 
lisieren (Zeile 242) 

MAXADBR ıst schließlich eıne 
Konstante, die angibt, wie viele 
Adressen man mit diesem Pro- 
gramm verarbeiten kann. Um 
diese Anzahl zu verdoppeln. 
wäre hier und in den Felddekla- 
rationen Zeile 33 und 34 100 
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Dei 
Dei 
DC 
x 
DC 
rc 


NODADR = 0; 


HEinführung in 


DONE BIT) INITeO’B: 
ErIT BIT: 

InDEr FirED; 

NAME CHARLIDON 

FRAGE CHARATDI: 

CHR CHAR 


/# nocn beine Adressen verfuegbar #/ 
LE NOT DONE REFERAT 7/4 Yommando Schleite 8/ 

/8 Gib Menue aus 8/ 

FUT "Adressen Verwaltung" TO Al Er (DISHIP.A,SHIPr 
PUT "At Adressen zeigen’ TO Al BY ShIf,Ar 

PUT 'Bi e suchen‘ TO AI Er SIP,Ar 

FUT 'Ci Adresse eingeben’ T0 Al EY SYIP,Aı 

PUT 'D: se loeschen' TO Al BY SKIP,A; 

FUT ® datei lesen’ TO Al BY SIF.M 

PUT "Fi datei speichern’ TO Al Er SYIP,Aı 
Fur ' lang’ TO Al BY (DISKIP,A: 

Enz * TO Al BY (DISFIP,Ay 

/4 Mole Yommando #/ 

GET CHE FROM XI BY SHIP.AL 

/% Fuehre Yommando aus 1/ 

EXIT = FALSE: 

CASE TOFIXEDILTOUICHRI) = TOFIIEDL'A') - 1 


ALT /E ANY /8 Adressen zeigen 8/ 
CALL SORTI 
FRAGE = "Weiter ('')" "a." Er "wit," "D"ruchen)s 
FOR I TO NOOADR WMILE NOT EXIT REPEAT 
om = SELECT (DATEI ORDER(1)) .FRAGE.ERITIG 
END; 


MT /EB/  /8 Adressen suchen I/ 
PUT 'Naneı ' TO AI BY (DISKIP,Ar 
GET NAHE FROM Al BY SIP,A; 
FRAGE = "Weiter (’"J’ "a," Er "wit," Ditruchends "; 
Inder = 13 
WHILE NOT EXIT REPEAT 
INDEX = SERRCH(NAME, INDEN)G 
ir InDEı EO O0 
THEN EXIT = TRUE: 
ELSE CHR = SELECT (DATEI LINDEN FRAGE,ETITI; 
Fin 
INDEX = INDEX + 1ı 
END: /8 04 WHILE locp #/ 


MT ICH 78 Adr 
NOORDR = NOOADA + 15 
IF NOOADR GT MALADR 
THEN FUT "Datei voll’ TO Al Br SHIP,A,SKIPı 
NOOADR = NOOADR - Ir 
ELSE DATEI INOOADR) = GETADRI 
Fin: 


eingeben #/ 


ArT/eDm +8 Agres: 
FRAGE = "Lowschen ( N’rein,''Ertwitle "4 
For I 10 NOOADR WMILE NOT EXIT REPEAT 

IF *J° EO SELECT (DATEICH) ,FRAGE,EITD 
THEN DATEI]) = DATEI (NOORDR) 
NOOADR = NODADR = 1 


Fin 
END; 


ALT /a EW/  /8 Adressdatei von Diskette lesen 8/ 
CALL LOAD; 


ALT IE FI SR Adresscateı auf Dishette schreiben #/ 
Ca Saveı 


ALT /0 G a7 7/8 Programm beenden 1/ 
DONE = TRUEI 
FUT 'Bve’ TO Al BY (DISIP,A,SKIPI 


PEARL 


einzusetzen. Es sei hier darauf 
hingewiesen, daß es sehr zur 
Übersichtlichkeit eines Pro- 
gramms beiträgt. wenn man 
wichtige Konstanten zentral mit 
einem Label vereinbart. So 
kann man sie bei Bedarf schnell 
ändern, ohne die Gefahr, bei 
mehrfachem Auftreten im Pro- 
grammtext etwas zu übersehen. 


CHAR-Variable 


Neben dem Rechnen ist heute 
die Textverarbeitung ein bedeu- 
tender Anwendungsbereich für 
Computer. Auch hierfür stellt 
PEARL leistungsfähige Sprach- 
elemente zur Verfügung. Doch 
zunächst zur Speicherung: 


Texte werden in CHARAC- 
TER- oder kürzer CHAR-Varia- 
blen gespeichert, denen in 
Klammern eıne Längenangabe 
folgen kann, ähnlich der BIT- 
Variablen oder der Feldbe- 
schreibung eindimensionaler 
Felder. Eine CHAR-Varia- 
blen-Deklaration ist in Zeile 74 
zu sehen. Dort werden zwei 
Strings von je 40 Zeichen Länge 
deklariert. Die Regeln für das 
Kopieren verschieden langer 
Strings sind recht einfach: was 
nicht paßt, wird rechts abge- 
schnitten beziehungsweise 
durch Leerzeichen aufgefüllt. 
Kopiert man also "‘ABCDEF’ in 
eine CHAR (4)-Variable. so ent- 
hält sie "ABCD", kopiert man 
‘GH’ in diese, so enthält sie 
"GH *. Auf diese Weise ist 
CSTR in Zeile 103 trotz Zuwei- 
sung eines nur 20 Zeichen lan- 
gen Strings in ganzer Länge mit 
definiertem Inhalt versehen. 


Will man zwei Strings aneinan- 
derhängen, gibt es dazu die 
Funktion CAT; Beispiele sind in 
den Zeilen 77 und 78 zu schen. 


Man kann aber nicht nur 
Strings als Ganzes bearbeiten, 
sondern über den Sclektor 
.CHAR(integerexpression) 
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OUT u ınvalıd command #7 
8 co netning 8/ 


Fin: /8 04 CASE 8/ 
END: 78 04 REPEAT loop 8/ 


END: /8 04 tası DES 


ELLLITLLITTT 
7 MODEND; 


FERERREIRTERERETERIHERTRERTETERENEERERTEDERERERBENEREN/ 


Zum Kennenlernen von PEARL: ein komplettes kleines 


Dateiverwaltungsprogramm 


auch jedes einzelne Zeichen aus 
eınem String herausfischen. Ein 
schönes Beispiel. auch für einen 
Wiıederholungsblock, ist die 
Funktion LAST ın Zeile S3ff. 
Diese Funktion sucht nach der 
Position in einem String, ab der 
nur noch Leerzeichen darin ste- 
hen. Schön ist hier die Verknüp- 
fung von Zählschleife und Ab- 
bruchbedingung zu sehen, wo- 
bei die Zählvarıable in der Be- 
stimmung der Abbruchbedin- 
gung auftaucht. Die Position 
wird gefunden, indem die Zei- 
chen des Strings von hinten be- 
ginnend mit dem Leerzeichen 
verglichen werden. Taucht das 
erste Zeichen ungleich dem 
Leerzeichen auf, enthält 
NONBL aus der Runde vorher 
die gewünschte Position. 


Wie in Zeile 23] und 140 zu se- 
hen, kann man Strings mit dem 
Operator EQ (equal) direkt auf 
Gleichheit untersuchen. Etwas 
anders sieht es aus, wenn man 
die Reihenfolge von Buchstaben 
gemäß dem Alphabet untersu- 
chen will. Die Operatoren GT 
(greater than), GE (greater or 
equal), LT (less than) und LE 
(less or equal) sind nämlich für 
Buchstaben nicht zugelassen. 
Das liegt daran, daß PEARL- 
Programme nicht grundsätzlich 
für Computer geschrieben wer- 
den, die intern mit einer ASCII- 
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Darstellung der alphanumeri- 
schen Zeichen arbeiten. Und so 
ein Vergleich würde etwa im 
EBCDIC-Code ein gänzlıch an- 
deres Ergebnis haben. Deshalb 
sind hierfür die Buchstaben mit 
TOFIXED in dıe entsprechen- 
den ASCII-Codes, also Zahlen, 
zu konvertieren und diese dann 
zu vergleichen. Die Umkehrung 
von TOFIXED ist TOCHAR 
(Zeile 47), das aus einem Inte- 
gerwert einen Buchstaben ge- 
mäß ASCII macht. 


Verbund-Variablen 


Haben mehrere Variablen einen 
gemeinsamen Bezug, so faßt 
man sie günstig in Verbund- 
Variablen zusammen. Taucht 
eine Verbund-Variable mehr als 
einmal auf, ist es sinnvoll, einen 
entsprechenden Typ zu definie- 
ren. Verbunde oder Strukturen, 
in Pascal ‘records’, sind nichts 
anderes als die Zusammenfas- 
sung von Variablen, auch ver- 
schiedenen Typs, unter einem 
gemeinsamen Namen. Zu einer 
Adresse zum Beispiel gehören 
verschiedene Elemente, die nur 
gemeinsam den sinnvollen In- 
halt ‘Adresse’ haben. Deshalb 
ist in Zeile 27 bis 32 der neue 
Datentyp ADDRESS definiert, 
der die aufgezählten Elemente 
enthält. 


Dieser neue Datentyp wird in 
Zeile 33 gleich zur Deklaration 
eines Feldes gebraucht, das 50 
Adressen umfaßt. Dieses Feld 
enthält die Datensätze, mit de- 
nen in diesem Programm gear- 
beitet wird. Will man auf ein 
einzelnes Element eines Verbun- 
des zugreifen, so ist an den Na- 
men der Verbund-Variablen mit 
einem '.' der Elementname an- 
zuhängen. So gestattet DA- 
TEI(17). TELEFON den Zu- 
griff auf den String TELEFON 
im 17. Datensatz von DATEI. 
Auch das Schachteln von Ver- 
bunden ıst gestattet. So dürfte, 
wenn notwendig, in der Adresse 
auch eine Variable vom Typ 


KOMPLEX folgendermaßen 
definiert werden: 
TYPE KOMPLEX (RE 


FLOAT, IM FLOAT/); 


Man kann Verbunde als Ganzes 
zuweisen (Zeile 300). Dazu muß 
aber eine Typ-Definition ge- 
macht und die Verbund-Varia- 
ble mit diesem Typ deklariert 
worden sein. Dies ist auch not- 
wendig, wenn Verbunde an 
Funktionen und Prozeduren 
übergeben werden sollen oder 
eine Funktion einen Verbund 
als Resultat liefert (Zeile 151) 


Prozeduren und 
Funktionen 


Funktionen und Prozeduren be- 
ginnen mit ıhrem Namen. Es 
folgt hinter einem Doppelpunkt 
das Schlüsselwort PROC, dann 
eine Parameterliste, dıe leer sein 
darf (Zeile 189), und beı Funk- 
tionen muß schließlich noch der 
Typ des Resultates angegeben 
werden. Prozeduren werden mit 
CALL XYZ aufgerufen. Funk- 
tionsaufrufe dürfen überall dort 
stehen, wo auch eine Variable 
gleichen Typs stehen dürfte 
(Zeile 271,299). Die Typangabe 
bei Funktionen erfolgt mit RE- 
TURNS(typangabe) (Zeile 42) 
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Dabei darf der Typ auch ein 
Verbund sein, wie man in Zeile 
151 sieht. Diese Funktion liest 
eine Adresse ein und übergibt 
sie dann komplett der aufrufen- 
den Task (Zeile 293). 


Hinter Parameterliste und Typ- 
angabe taucht in manchen 
PEARL-Lehrbüchern noch die 
Angabe REENT auf. Dies steht 
für 'reentrant' ("wiedereintritts- 
fähig’) und bedeutet, daß die 
Funktion oder Prozedur von 
mehreren Tasks gleichzeitig auf- 
gerufen werden darf. Unter 
RTOS/UH-PEARL ist diese 
Angabe überflüssig, da hier 
Funktionen und Prozeduren 
immer 'reentrant' sind. Diese 
Eigenschaft wird dadurch er- 
reicht, daß Variable nur indirekt 
angesprochen werden und da- 
durch mit jedem Aufruf ein 
neuer Speicherbereich für die 
Variablen angelegt werden 
kann. So einen Prozedur- oder 
Funktions-Variablenbereich er- 
kennt man an dem Kürzel 
PWSP, wenn man sich den Sy- 
stemstatus mit dem 'S’-Kom- 
mando anzeigen läßt. 


In der Parameterliste stehen die 
Parameter, die die aufrufende 
Task. Prozedur oder Funktion 
bekanntmacht, ansonsten sınd 
nur globale Variable innerhalb 
einer Prozedur oder Funktion 
bekannt. Die Parameter werden 
übergeben durch Angabe eines 
Namens für den Bereich inner- 
halb der Prozedur oder Funk- 
tion und die Datentypangabe 
(Zeile 73). Mehrere Parameter 
werden durch Kommata ge- 
trennt. Werden auf diese Weise 
Parameter übergeben, so ge- 
schieht eine Übergabe ‘by va- 
lue’, das heißt, daß eine eigene 
Speicherzelle für diese Varia- 
blen im Procedure Workspace 
(PWSP, 5.0.) bereitgehalten 
wird, in die beim Aufruf der 
Variableninhalt des Aufrufers 
kopiert wird. 


Auf diese Weise kann eine Pro- 
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zedur oder Funktion keine Va- 
riablen außerhalb verändern, 
weder gewollt noch ungewollt. 
Manchmal möchte man aber 
gerade dieses; dann kann man 
Parameter ‘by identity’ überge- 
ben, was durch den Zusatz 
IDENT in der Parameterliste 
geschieht (Zeile 220). In diesem 
Fall wird die Adresse der zuge- 
hörigen Variablen des Aufrufers 
übergeben; dıe 
Funktion arbeitet dann mit die- 
ser Variablen, als sei es eine ei- 
gene. Soetwas ist nützlich, wenn 
mehr als eıne Variable Ergebnis 
einer Funktion sein soll oder 
eine Prozedur andere als globale 
Variable bearbeiten soll. Die 
Funktion SELECT etwa über- 
gibt einen Buchstaben als Funk- 
tionswert mit RETURN(funk- 
tionswert) (Zeile 234), während 
das Ergebnis der logıschen Ver- 
knüpfung "Buchstabe ıst gleich 
'E” dadurch dem Aufrufer be- 
kannt ist, daß er der Funktion 
eine BIT(1)-Variable ‘by iden- 
tity' übergibt. 


Eine weitere Besonderheit be- 
steht darin, daß man auch Da- 
tenstationen als Parameter 
übergeben darf. Diese müssen 
"by identity’ übergeben werden 
(Zeile 173). Auf diese Weise ıst 
nur eine einzige Prozedur, näm- 
lich PUTADR, nötig. um die 
Ausgabe sowohl auf den Bild- 
schirm alsauch auf den Drucker 
zu besorgen. Es müssen nur die 
übergebenen Datenstationen 
mit der Spezifikation in der Pa- 
rameterliste übereinstimmen, 
wobei es nicht stört, daß für Al 
auch die Datenrichtung Ein- 
gabe zugelassen ist, während in 
der Parameterliste nur die Da- 
tenrichtung Ausgabe gefordert 
wird. 


An dieser Stelle sei auf eine Ab- 
weichung des RTOS/UH- 
PEARL-Compilers vom DIN- 
Standard hingewiesen. Nach 
DIN ist es möglich, in Tasks, 
Prozeduren und Funktionen lo- 


Prozedur/ 


kale Variablen zu deklarieren 
mit Namen, die auch globale 
Variablen haben. Eine global 
deklarierte ZAHL FIXED wäre 
damit verschieden von einer lo- 
kaldeklarierten ZAHL FIXED. 
Da es verwirren kann, wenn in 
zwei Tasks dann ZAHL auf- 
taucht, zwei vollkommen ver- 
schiedene Variable aber damit 
gemeint sind, ist dies bei dem 
RTOS/UH-PEARL-Compiler 
nicht möglich. Wird es dennoch 
versucht, so bekommt man ei- 
nen /DOUBLE-DEF/inition- 
Fehler. Natürlich dürfen lokale 
Variablen in verschiedenen 
Tasks, Prozeduren und Funk- 
tionen gleiche Namen haben. 
die Einschränkung gilt nur für 
die Namen globaler Variablen. 


CASE-Auswahl 


Das Beispiel-Programm arbeı- 
tet menügesteuert. Dies bedeu- 
tet. daß das Drücken einer ein- 
zigen Taste genügt, um eine 
Funktion des Programmes auf- 
zurufen. Um nun den Aufruf 
der verschiedenen Funktionen 
einfach zu gestalten, wurde je- 
der Funktion ın aufsteigender 
Folge ein Buchstabe zugeteilt. 
Dadurch ıst die Auswahl mit 
CASE einfach. Auf CASE muß 
ein Integerwert folgen, der an- 
gibt, welches ALT angesprun- 
gen wird. Ist der Integerwert I, 
so wird das erste ALT ange- 
sprungen, ist er 2, so wird das 
zweite ALT angesprungen und 
so weiter. Deshalb muß noch 
eine Anpassung erfolgen, da ‘A’ 
ja durch die Funktion TOFI- 
XED den Wert 65 liefert. Dies 
geht relativ einfach auch ohne 
Wissen um die absoluten AS- 
CII-Codes: Der ASCII-Code 
des eingegebenen Zeichens wird 
zunächst auf Kleinbuchstaben 
getestet (natürlich frißt dieses 
Programm auch Kleinbuchsta- 
ben als Funktionsaufruf) und 


15 


eventuell zum Großbuchstaben 
konvertiert; dann wird der AS- 
CII-Code von 'A’ abgezogen 
und I addiert. 


Zahlen, die größer als die An- 
zahl der ALT's sind, führen 
ebenso wie 0 dazu. daß die Rou- 
tine hinter OUT angesprungen 
wird, diese sollte deshalb die 
Fehlerbehandlung enthalten, 
wenn diese Werte nicht auftre- 


ten dürfen. Hier treten solche 
Werte dann auf, wenn der Nut- 
zer andere als die angegebenen 
Tasten drückt: das verzeiht das 
Programm ohne Bemerkung, es 
wird einfach das Menü noch 
einmal ausgegeben 

Nicht zu vergessen ist ein FIN 
als Abschluß des ganzen Gebil- 
des, ähnlich IF.. THEN... ELSE 
. FIN. 


Maus, Grafik, Interrupts 


Atari ST ohne Maus? 
Wem diese lieb ist, der 
soll sie auch unter RTOS 
nicht missen. Deshalb 
stelle ich jetzt ein 
kleines Zeichen- 
programm vor, das die 
Maus als Stift benutzt. 
Von den Leistungs- 
merkmalen her ist es 
vergleichbar dem 
Programm ‘Doodle’ unter 
TOS. Man kann damit 
zeichnen, radieren, 
Bilder löschen, auf 
Diskette abspeichern und 
von dieser wieder laden. 
Nur der Aufruf dieser 
Funktionen geschieht 
auch weiterhin über die 
Tastatur. 


Nach der Tastatur ist die Maus 
die zweite Quelle, von der Si- 
gnale aus der Außenwelt an den 
Rechner gelangen. Dabei be- 
steht, zumindest beim ST, intern 
gar keın so großer Unterschied 
zwischen Tastatur und Maus 
Beide Arten von Signalen wer- 
den von dem unter der Tastatur 
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sitzenden Prozessor 6301 'vor- 
verdaut’ und dem Hauptprozes- 
sor über eine serielle Schnitt- 
stelle inmundgerechten Happen 
gereicht. 


Eine besondere Eigenschaft die- 
ser seriellen Schnittstelle ist ihre 
Fähigkeit, einen Interrupt (Pro- 
grammunterbrechung) auszulö- 
sen. Diese ermöglicht es, daßder 
Hauptprozessor kontinuierlich 
arbeiten kann und nıcht immer 
wieder nachschauen muß, ob 
sich in seinem *Briefkasten' 
schon wieder ein Kommando 
des Benutzers befindet: Erst 
wenn eine Taste gedrückt oder 
die Maus bewegt wird, macht 
eın Interrupt den Hauptprozes- 
sor darauf aufmerksam, daß es 
wieder Informationen von der 
seriellen Schnittstelle abzuholen 
gibt. 


Die Maus - ein 
externes Ereignis 


Der 6301 hat 4 KByte ROM, in 
das das Programm zur ‘Vorver- 
dauung’ von Tastatur, Maus 
und eventuell Joystick einge- 
brannt ist. Deshalb werden die 
von dort stammenden Informa- 
tionen immer in einem der pro- 
grammierten Formate angebo- 
ten, egal, ob der Rechner nun 


unter TOS oder unter RTOS 
betrieben wird. Unter RTOS 
werden aber die Informationen 
über Mausbewegungen norma- 
lerweise nur in einen Puffer ge- 
schrieben und nicht weiterver- 
arbeitet. Für die bedarfsge- 
rechte Weiterverarbeitung muß 
deshalb erkannt werden kön- 
nen, daß Daten über eıne Maus- 
bewegung ın dem Puffer abge- 
legt wurden. und dieser Puffer 
muß zugänglich sein 


PEARL als Sprache der ProzeB- 
rechner besitzt Sprachmittel, 
um auf Interrupts in unter- 
schiedlicher Weise zu reagieren 
Zunächst muß aber eine Inter- 
rupt-Quelle bekannt gemacht 
werden. Dies geschieht unter 
RTOS in dem Systemteil durch 
Angabe eines Namens, mit dem 
der Interrupt dann angespro- 
chen werden kann, gefolgt 
von einem Doppelpunkt und 
"EV(hexnum)', 'hexnum’ ist ein 
32stelliges Bitmuster, bei dem 
sich hinter jedem Bit eine Inter- 
rupt-Quelle verbergen kann. 
Mıt "EV(80000000)' (Zeile 16) 
wird eine "Maske gesetzt, die 
den Interrupt hinter Bit 31 (die 
Numerierung beginnt rechts mit 
Bit 0) freigibt, den Maus- 
Interrupt. Auch Bit 30 ist bei der 
ST-Implementation belegt. al- 
lerdings nicht durch ein externes 
Ereignis, sondern durch den 
rechnerinternen Bild-Synchro- 
nısationsimpuls für den Moni- 
tor. Im Problemteil ist ein Inter- 
rupt zu spezifizieren mit dem 
Schlüsselwort ‘'INTERRUPT" 
(Zeile 24), 


Das Bekanntmachen eines In- 
terrupts reicht aber noch nicht 
aus. Er muß noch freigegeben 
werden, und außerdem will das 
Betriebssystem wissen, was pas- 
sieren soll, wenn der Interrupt 
auftritt. Die Freigabe geschieht 
durch 'ENABLE _interrupt- 
name’ (Zeile 177), das Sperren 
entsprechend durch "DISABLE 
interruptname" (Zeile 83). Der 
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Benutzer kann _Interrupt- 
Quellen auch von der Komman- 
doebene des Betriebssystems 
aus freigeben und sperren; aller- 
dings muß er dann natürlich an- 
stelle des programminternen In- 
terrupt-Namens das Schlüssel- 
wort 'EV’ und die zugehörige 
Bitmaske angeben. "EV' steht 
übrigens für ‘event’, was soviel 
wie Ereignis bedeutet. 


Doch nun zur Hauptsache. 
Durch den Interrupt soll ja eine 
Aktion des Rechners ausgelöst 
werden. PEARL bietet dazu 
eine sprachliche Konstruktion 
in der Form "WHEN interrupt- 
name ACTIVATE ...' an, dıe 
dazu dient, eine Task als Reak- 
tion auf einen Interrupt einzu- 
planen (Zeile 179). Die Wirkung 
ist ebenso wie beı der zyklischen 
Einplanung mit "ALL 0.05 SEC 
ACTIVATE. ..', an die Sie sich 
vielleicht aus dem Teil 3 dieser 
Serie erinnern: Jedesmal, wenn 
das auslösende Ereignis eintritt, 
wird die eıngeplante Task durch 
das Betriebssystem gestartet — 
nur daß es sıch in diesem Fall 
nicht um den periodischen Ab- 
lauf einer Zeitspanne, sondern 
um den Maus-Interrupt han- 
delt, der beı jeder Bewegung 
ausgelöst wird. Deshalb ist dem 
Mäusegeist, wenn einmal geru- 
fen, auch nur mit ‘PREVENT 
MOUSE’ oder aber ganz radi- 
kal durch UNLOAD MOUSE" 
beizukommen. 


Sperrt man nur mit 'DISABLE 
EV 80000000'° den Interrupt, 
bleibt die Einplanung erhalten. 
Dies nutze ich in der Task 
MOUSE aus. Diese Task 
braucht eine gewisse Zeit zur 
Verarbeitung einer Mausbewe- 
gung beziehungsweise eines Ta- 
stendruckes. Während dieser 
Zeit würde der kleine Neben- 
prozessor schon weitere Daten 
liefern, die jeweils wieder cınen 
Interrupt verursachen und 
RTOS veranlassen würden, eine 
Aktivierung der Task MOUSE 
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vorzumerken. Ab der vierten 
Vormerkung wird aber ein 'IN- 
TERRUPTOVERFLOW’ aus- 
gegeben, der das System stark 
blockiert; denn die #ERROR- 
Task, die eine solche Meldung 
fabriziert, hat eine hohe Priori- 
tät, und die Bildschirmausgabe 
über die Terminal-Emulation 
kostet beim ST viel Zeit, was zu 
einer Eskalation führen kann, 
da die Task MOUSE noch we- 
niger zum Zuge kommt und 
noch mehr Aktivierungen "über- 
hängig’ werden. Deshalb wird 
zu Beginn der Task MOUSE der 
Maus-Interrupt gesperrt, die 
Mausbewegung wird in Ruhe 
verarbeitet, und gegen Ende der 
Task wird der Interrupt dann 
wieder freigegeben. 


Mehrere Bilder 
gleichzeitig 


Nach diesen einleitenden Be- 
merkungen zum Maus-Inter- 
rupt jetzt zum Programm. Vor- 
aussetzung für dieses Programm 
sind die bereits in die EPROMs 
eingebrannten Grafikfunktio- 
nen. Diese Funktionen gehören 
alle nicht zum Standard- 
Sprachumfang von PEARL, 
stehen aber bei PEARL-UH zur 
Verfügung (zum Teil nur fürden 
Atari ST). Sie teilen sich auf in 
Einbaufunktionen, die dem 
Compiler bekannt sind (SET- 
PIX und LINE), und erweiterte 
Einbaufunktionen, die vor ihrer 
Benutzung als externe Prozedu- 
ren spezifiziert werden müssen 
(Zeile 25,26), Ihre Funktion 
werde ich jeweils beim erstmali- 
gen Auftreten erklären. 


Den Einstieg in das Zeichenpro- 
gramm bildet die Task START. 
Sie beginnt mit dem Aufruf von 
GETNAM, einer Prozedur, die 
der String-Variablen MNAME 
den Namen ‘Bild ' oder einen 
vom Nutzer einzugebenden Na- 
men zuweist,. Dabei wird die 
Funktion OPSTR benutzt, die 
es ermöglicht, mit ‘CR’ einen 


vorgegebenen String zu bestäti- 
gen (dann enthält STRING 
nach Zeile 52 nur Leerzeichen) 
oder zu ersetzen. 


Der Bildname wird für die Ein- 
baufunktion SCRSET ge- 
braucht. Mit dieser Funktion 
wird ein Speichermodul einge- 
richtet beziehungsweise der 
Malzeiger der aufrufenden Task 
auf dieses gesetzt, wenn esschon 
existierte. Der Atarı ST verwen- 
det ja als Videospeicher den 
Hauptspeicher, in dem der Vi- 
deopointer auf einen 32 KByte 
großen Speicherbereich zeigt, 
dessen Speicherinhalt als Pixel- 
muster dann auf dem Bild- 
schırm zu sehen ist. Mit 
SCRSET wird so ein Speicher- 
bereich angefordert, der dann 
mit ‘#name ' in der Speicherver- 
waltung erscheint. Das Doppel- 
kreuz bedeutet dabei, daß dieses 
Modul nicht mit "UNLOAD' 
wieder entfernt werden kann 
Dazu ist die Funktion SCKILL 
zu benutzen, die auch von der 
Kommandoebene direkt aufge- 
rufen werden kann. Der Name 
eines Bildmoduls darf aus ma- 
xımal fünf Buchstaben beste- 
hen. 


Mit SCRSET können soviele 
Bildschirmseiten eingerichtet 
werden, wie im Speicher Platz 
ist, beim "Mega-Atari’ also bis 
zu 30. Aber nicht nur zum Ein- 
richten der Bildschirme wird 
SCRSET gebraucht: Wie schon 
angedeutet, wird mit dieser 
Funktion auch ein Malzeiger 
gesetzt. Dieser gibt für die 
Funktionen SETPIX, LINE 
und CLEAR an, auf welchem 
Bildschirm gearbeitet werden 
soll, um den Verwaltungsauf- 
wand zu verringern und die 
Grafik hinlänglich schnell zu 
machen. Es gibt für jede Task 
einen Malzeiger, der natürlich 
jeweils nur aufeinen Bildschirm 
gleichzeitig zeigen kann. Soll 
auf einen anderen Bildschirm 
gewechselt werden, ist deshalb 
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Mausanschluß? - Unter 
RTOS-UH/PEARL kein 
Problem 


wiederum SCRSET zu bemü- 
hen. Vor dem Aufruf von 
SCRSET zeigt der Malzeiger 
auf den Hauptbildschirm, der 
mit dem Namen '#MAIN "an- 
gesprochen werden kann. 


Der frisch eingerichtete Bild- 
schirm wird mit der Funktion 
CLEAR (Zeile 167) gelöscht. Es 
wırd aber immer noch der 
Hauptbildschirm angezeigt. Mit 
SCRCHG, auch einer Funk- 
tion, die von der Kommando- 
ebene aufgerufen werden kann, 
wırd nun der Videopointer auf 
den neuen Bildschirm "umgebo- 
gen’, und es ist dieser strahlend- 
leer zu sehen. Würde an dieser 
Stelle das Programm angehal- 
ten, hätte man blınd den Befehl 
*etrl-A SCRCHG #MAIN’ ein- 
zugeben, um zu dem Hauptbild- 
schırm zurückzugelangen. Da 
dies aber zu ungeahnten Folgen 
führen kann, weil etwa gleich- 
zeitig der Editor auf dem 
Hauptbildschirm läuft, ıst ein 
bequemes Zurückschalten zum 
Hauptbildschirm auch mit der 
Taste ‘HELP’ möglich. Mit 
"Shift-HELP" geht es dann wie- 
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der zurück zum zuletzt aktıven 
Bildschirm. 


Da RTOS auch Farbgrafik mit 
mittlerer Auflösung unterstützt, 
kann man mit der Funktion 
WIDTH die Anzahl der Pixel in 
x- und y-Richtung abfragen. 
Nach dem Funktionsaufruf fin- 
den sich in den beiden FIXED- 
Variablen zum Beispiel für meı- 
nen monochromen Monitor die 
Werte 640 und 400. Um den 
Pfeil, der die Maus auf dem 
Bildschirm repräsentieren soll, 
nicht aus dem Bild wandern zu 
lassen, werden XLIMIT und 
YLIMIT auf eine Pfeillänge 
weniger gesetzt. MX und MY 
enthalten dıe aktuelle Mauspo- 
sition, die in der Bildschirm- 
mitte aufgesetzt wird (Zeile 
172,173), und MXO und MYO 
die vorangehende Mausposi- 
tion. 

Das Bild soll nicht zerstört wer- 
den, wenn sich der Pfeil darüber 
hinwegbewegt; deshalb muß der 
betroffene Bildschirmaus- 
schnitt vorher abgespeichert 
und hinterher wieder restauriert 
werden. Dazu dient das Funk- 
tionenpaar SPRITL und 
SPRITS. Mit diesen Funktio- 
nen kann ein Bildschirmaus- 
schnitt ın einem zweidimensio- 
nalen Bit-Feld gespeichert und 


auch wieder von dort zurückge- 
holt werden. Lage und Größe 
des Ausschnitts werden be- 
schrieben, indem man die Koor- 
dinaten der linken oberen Ecke 
und, darauf bezogen, die Aus- 
dehnung ın x- und y-Richtung 
angibt. Beachtung verdient 
dabei die Dimension des Bit- 
Feldes ın x-Richtung, da wort- 
weise (BIT(16)) gespeichert 
wird. Sie muß ımmer ein Wort 
mehr betragen, als zur Speiche- 
rung der Bit-Anzahl in x-Rich- 
tung notwendig wäre, da ja 
nicht unbedingt der Bildschirm- 
ausschnitt mit einer Wortgrenze 
im Speicher zusammenfallen 
muß. Ist zum Beispiel ein Bild- 
schirmausschnitt in x-Richtung 
67 Bit lang, so wären zu dessen 
Speicherung fünf Worte not- 
wendig. und das Bıt-Feld müßte 
in x-Richtung die Dimension 6 
haben. Bei Farbgrafik ist dieser 
Wert noch mit 2 zu multiplizie- 
ren 


In der Task START werden au- 
Berdem der Maus-Interrupt 
freigegeben, die Task SCRUP 
gestartet und die Task MOUSE 
für das Auftreten des Maus- 
Interruptes eingeplant, Die 
Task SCRUP ist jetzt also lauf- 
fähig, und die Task MOUSE 
wartet auf ihren Interrupt. Auf 
diesen Interrupt will ich sie aber 
noch cın wenig warten lassen 
und erst die Task SCRUP be- 
schreiben. 


Synchronisiert 
zeichnen 


SCRUP ist die Task, die die 
Mausbewegungen auf dem 
Bildschirm darstellt und das 
Zeichnen und Löschen vor- 
nımmt. Löschen ist dabei nichts 
anderes als zeichnen mit der 
Hintergrundfarbe Dazu muß 
der Malzeiger auf den Zeichen- 
bildschirm gerichtet sein, was in 
Zeile 130 durch SCRSET ge- 
schieht. Alles folgende läuft ın 
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einer Endlosschleife ab, wie sie 
wohl noch aus Teil 3 dieser Serie 
erinnerlich ist. An dieser Stelle 
enthalten MXO und MYO die 
Koordinaten, auf denen die 
Maus (als Pfeil) gerade auf dem 
Bildschirm dargestellt wird, und 
MX und MY die Koordinaten, 
zu denen sie bewegt wurde; der 
Bildschirmausschnitt unter der 
Maus ist in ARROWS gespei- 
chert, und LBTN und RBTN 
sind "wahr', wenn die linke be- 
ziehungsweise rechte Maustaste 
gedrückt ist. 


Aus noch nicht ersichtlichen 
Gründen wird zunächst der In- 
terrupt, der durch den Vertikal- 
Bildsynchronisationsimpuls 

ausgelöst wird, gesperrt (Zeile 
132). Doch dazu später. Mit der 
schon beschriebenen Funktion 
SPRITS wird der Bildschirm- 
ausschnitt unter dem Pfeil re- 
stauriert, es ist also jetzt kein 
Pfeil mehr zu schen. Abhängig 
davon, ob eine der Maustasten 
gedrückt ist, wird jetzt eventuell 
eine Linie von der alten zur 
neuen Mausposition gezogen. 
Ist die rechte Maustaste ge- 
drückt, so wird keine Linie ge- 
zogen und auch nicht gelöscht, 
die Maus läßt sich also frei be- 
wegen. Außerdem wird die linke 
Taste ignoriert. Ist die rechte 
Taste aber nicht gedrückt, so 
wird eine Linie gezogen, wenn 
die linke Taste nicht gedrückt ist 
(Zeile 139), beziehungsweise ge- 
löscht, wenn sie gedrückt ıst. 
LINE wird dazu der Anfangs- 
und der Endpunkt der Linie 
übergeben sowie die Farbe, mit 
der sie gezogen werden soll. 

Da das Zeichnen und Löschen 
mit nur einem Pixel Breite ge- 
schieht, ist es ziemlich schwierig, 
Flächen geschlossen schwarz 
oder weiß zu bekommen. Ab- 
hilfe läßt sich recht einfach 
schaffen, indem man mehrere 
Linien parallel zeichnen läßt. je- 
weils um ein Pixel nach rechts 
oder unten verschoben. Die fol- 
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nn En 


DBOLLITELTETTETTETTTTETTTTTETETTETTESTETESTTTEETEITESTITETTTESTIEETTTETETTZ 
ın v 
3 MAUS unter RTOS v 
448 last update: 01.09.96 23050 v 

177 
LLLLTETTERTTTTETSETTTTE EIG TG 
/t to spare memory 8/ 


/t Terminal vu 
8 Rausstatus vu 
48 I-Koordinate v 
#4 Y-Koordinate v 
48 Y-Sync. Interrupt 8/ 
#4 Rausinterrrupt v 


Mi Al Ch 

MAUT: BULOIOOOBEBI (=; 
HAUT: EULOLOOOBET) 4-5 
MAUY: BULOLOOOBEB) 4-5 
SYNC: EWLAO000000); 
MAUS: EV(00000001; 


18 PROBLEN; 
19. SPCAL BATION INDUT ALPHIC CONTROL(ALLI: 
20  SPEMAUT DATION IN BASIC; 
SPC MAUR  DATION IN BASIC; 
SPC NAUY  DATION IN BASIC; 
SPC SINE INTERRUPT; 
SPC MAUS INTERRUPT; 
SPC (CLEAR, SCRSET SCRCKG,SCHILL,MIDTH) ENTRY SLOBAL; 
SPC (SCLOAD,SCSAVE,SPRITL,SPRITS) ENTRY SLOBAL; 
SPC SCRUP TASK; 


DEL TRUE INV BITC) INITEL"BIG 
DEL FALSE INV BITLAN INITE'O"BI; 


DEL CAMIDTH,YMIDTH) FIXED; /4 screen resolution 

DEL (ALIMITYLINITI FINED; /0 screen border 

DEL (MI, MI FIXED; IR aouse posıtıon 

DEL (MIO,MYO) FIRED; 41 old mouse position 

DEL MTO FIIED; 48 old button status 

DEL ARROWS (2,11) BITLIG); /8 to save picture under arrow 8/ 
DEL MNANE CHAR(SI; Id nase af active picture 8/ 

DEL LBIN BITLN; #8 Leit button lag vu 

DEL RBTN BITLH; IR right button flag W/ 

DEL 6OTN BITLA) INITL/O'BI;/R picture nase flag 

DCL SCRSEM SEMA PPESET(L); /8 mouse position update senaphore 8/ 


45 /u008 OPSTR BERRRTRSERTERSEETERSTERDRRRERRTDERTERIRRIRDRRURERERRRRIRRAN/Z. 
46 /8 get string, return default i# only 'CR' pressed v 
47 /uanaassaaana BERSETERERERRERDRERURRRRRRTERDRBERKRRTRERERRERURRURZ 
48 OPSTR:PROC (DEFAULT CHAR(BO)) RETURNS ICHAR(BO)); 

DCL STRING CHARIBO); 

DCLK FIIED INIT(0); 


GET STRING FROM Al BY SKIP,A; 
FOR I T0 80 WHILE STRING.CHAR(I) EQ " " REPEAT 
K:l 
END; In 18 K = 80 on exit, the user entered only CR 3/ 
IF K EO 80 
THEN RETURN (DEFAULT); 
ELSE RETURN (STRING); 
FIN; 
60 END; /# of procedure OPSIR 8/ 


Id no nem string entered 8/ 
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“ „nu... 
Pa a a a a er Be er ee Er er or a Er er Bo Dr or Br Dar Bar Bar Dur BE BL BE Dr Dur BL DE BE BE BE EL Br Br BL Bu BE Be nun. 


63 /I090 GETWAM BERRERSRESTTRERTREGTSRDUERURURDERDRERERKRTERURRRRDRRRRRRRZ 
64/8 get name for screen v 
65 /ÜRRRRERELERIRDERRERRITRRTRTEDELRRRREDTRRRLUERURRRRRERRRKRURRERRRRRUER/Z 
64 GETNAN:PROCH 
67 IF NOT GOTN 
THEN MNARE = "Bild '; 
EOTK = TRUE: 
FI; 
PUT "Bild: 0’ ,MNAME TO Al BY SKIFA,A,CDıT: 
ARE = DPSTRINNANE); 
73 END; / a8 procedure GETNAN 87 
7 
75 
76 /R00 MOUSE HREIREBSERIERITLERTRRTRTERTRLRRRERISRLRRTRGTRRRRERTHRRERTAR/ 
77 ’8 Mausbewegung ung Tastendruecke verarbeiten 
78 /RRERKEIERERSRENDRERERLSIRTITIRIELTITTRRERERDRDIISERENTLRERRURRTRRERENR/ 
79 MOUSE:TASK PRIO 15 RESIDENT; 
80 DEL NT FITED; 
e1  DEL «02,0Y) FINED; 
82 
83 DISABLE MAUS; 
84 TAKE.MT FROM MAUT; 
85 TAFE DI FROM MAUL; 
B6 TAKE OY FROM MAUY; 
8 IF MTO WE MT 
de IA ıgnore aouse movement if button status has changed B/ 
8° THEN /8 button status has changed 8/ 
” MID = HT; IR save new button status as old 1/ 
A IF (TOBITIMTI AND "O2'Ba) NE "00'B4 
74 THEN LBTN = TRUE; 
7 ELSE LETW = FALSE; 
„ FIN; 
” IF TOBITINT) AND "OI"ES) NE "00'84 
% THEN RBIN = TRUE; 
” ELSE FETN = FALSE: 
FIN; 
ELSE  /8 nouse has been moved 1/ 
REQUEST SCRSER; 
IF OL NEO 18 aovesent in z-direction 8/ 
THEN MI = MI + O1 77 256; 
IF my GE ILIRIT 
THEN MI = ILIMIT; 
ELSE IF MIT O 
TEN MI = 0; 
FIN; 


/1 ofter default name only once #/ 


/U relative aouse aovenent 1/ 


IN get button status 8/ 
/t and relatıve acwenent of mouse #/ 


#8 check for border 8 


FIN; 
FIN 
IFOYnEO IR aowenent in y-direction 8/ 
THEN MT E Mt + Or 7/2565 
IF Mt GE YLINIT 
THEN MY = YLINIT; 
ELSE IF MY LT O 
THEN MY = 0; 
FIN; 


18 check for border 87 


FIN; 
FIN 
ENABLE SYNC; 
RELEASE SCRSEN; 
FIN; 
ENABLE MAUS; 


IN screen aust be updated 1/ 


gende Zeile, hinter Zeile 138 ein- 
geschoben, erleichtert das Lö- 
schen, denn sie bewirkt das 
Zeichnen einer um ein Pixel 
nach unten verschobenen zwei- 
ten Linie mit der Hintergrund- 
farbe: 


CALL LINE (MXO.MYO +1. 
MX.MY + 1.0): 


Solange Sie sich mit weniger als 
zehn Pixeln Strichbreite begnü- 
gen, brauchen Sie nicht einmal 
auf den Rand besonders aufzu- 
passen. da dies für den 10 x 
10 Pixel großen Pfeil schon ım 
Programm erfolgt. 


Mit SPRITL wird der Bild- 
schirmausschnitt unter der 
neuen Mausposition gerettet 
und dann der Pfeil gezeichnet. 
Damit man den Pfeil auch auf 
dunklen Flächen erkennen 
kann, habe ich ihn mit weißen 
Linien umrandet (Zeilen 147, 
148, 150, 152). Mit der SET- 
PIX-Funktion wird schließlich 
am Pfeilende zum Schließen der 
Umrandung noch ein weißer 
Punkt gesetzt. 


Semaphore - 
Ampeln an kritischen 
Abschnitten 


Wer das Programm mitverfolgt 
hat, wird gemerkt haben, daß 
ich Zeile 134 bei meiner Erläu- 
terung übersprungen habe. 
Aber Semaphor-Operationen - 
und um eine solche handelt es 
sich, ebenso wie in Zeile 154 - 
sind nıcht eben so im Schnell- 
verfahren zu erklären, sie gehö- 
ren schon mit zu den diffizileren 
Sprachmitteln der Prozeßrech- 
nersprache PEARL. Ich will 
nun versuchen, die Notwendig- 
keit und den Einsatz von Sema- 
phoren anhand des Programm- 
beispiels zu erläutern, 


Die Problemsituation ist die fol- 
gende: SCRUP ist zum Beispiel 
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123 END; /8 of task MOUSE 8/ 
124 
125 
126 /#98 SCRUP IERERETERRRRERRRERRTERRRTRRIRRRTRRRHURIERN 
127 18 Screen aktualisieren 
128 /URURURERETLERERRSURRRRORRURRRURERERERRRRRRURERRRBRRRRRRRURERRRRERUUERUZ/Z 
129 SCRUP:TASK PRIO 16 RESIDENT; 
CALL SCRSET INNARE); 
REPEAT It endless loop 8/ 
DISABLE SYNC; 
CALL SPRITS(NIO,NYO, 10, 10, MMAME, ARROWS); 
RERUEST SCRSEN; 
IF NOT RBTN It right button: don't dram nor erase  8/ 
THEN 
IF LBTN In it left button pressed 8/ 
THEN CALL LINE (MIO,MYO,ME,MY,O):  /R then erase 8/ 
ELSE CALL LINE IMIO,MYO,MI,MY. I); /R else dram 8/ 
Fin; 
FIN; 
RIO «N; /t save souse position as old 8/ 
mo=.Mm; 
CALL SPRITLINT,MY, 10, 10, MMAME, ARROWS); 
/1 draw arrom M/ 
CALL LINE (MX + 1,MY + I,MR » B,AY + 8,0); 
CALL LINE (Mt + 5,MY + 4,ME + 9,mY + 8,0); 
CALL LINE (Mt + 4,mY + 5,MI + B,AY + 9,0): 
CALL LINE (MI + 2,MY + 2,MT + A,MY + 6,1); 
CALL LINE {MI „MY ‚MI + J,mt + 6,0); 
CALL LINE (NE + D,MY + 2,ME + b,MY + 4,05 
CALL LINE INT MI + MY + 3,015 
CALL SETPILIMT + 9,mY + 9,0); 
RELEASE SCRSEN; 
HEN SYNC RESUNE; 
136 END: /8 04 endless loop #/ 
157 END; ’a 04 task SCRUP 8/ 
158 


160 /#08 START AUHIRHERERTETTREHTRESTRTERTARHRTERSTERERTRTRRBRTERERBERERLER/ 
8 Einrichten der Maus v 
DALETELTTITTETTERR TEE TTTE IEIRRRRRERRRRRERERRERTERERE LLIEIE LITE 
START:TASK; 

CALL GETNAN; 
PUT TO AI BY SKIP; 
CALL SCRSET IMNANE); /8 set up screen for drawing 8/ 
CALL CLEAR; #8 clear this screen 8/ 
CALL SCRCHE (MNAME); IR and display it #/ 
CALL WIDTH(HWIDTH,YWIDTH);/R get actual screen resolution #/ 
ILINIT = IWIDTH - /8 mouse limited to screen area 9/ 
YLIRIT = YWIDTH - 10; 
MI = IWIDIH // 2 /8 position aouse at siddle of screm #/ 
MY = YWIDIH 77 2; 
MIO = N; 
MO = AT; 
CALL SPRITL(MI,MY, 10, 10, MNAME, ARROWS); 
ENABLE MAUS; 
ACTIVATE SCRUP; 
WHEN MAUS ACTIVATE MOUSE; 
END; /R 04 Ras START 8/ 
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in Zeile 150 mit dem Zeichnen 
des Pfeiles beschäftigt, und die 
Maus wird bewegt. Durch den 
damit verbundenen Interrupt 
wird die Task MOUSE lauffä- 
hig und bekommt aufgrund der 
höheren Priorität auch den Pro- 
zessor zugeteilt. Wie noch zu 
sehen ist, verändert MOUSE 
den Wert von MX und MY und 
wird fertig. Wenn jetzt SCRUP 
mit dem Zeichnen des Pfeiles 
fortfährt, geschieht dies an einer 
anderen Stelle, und man erhält 
zwei getrennte Pfeilteile. 


Um ein solches Dilemma zu ver- 
meiden, gibt es die Semaphor- 
Variablen. Da sie zur Koordi- 
nation von Tasks dienen, müs- 
sen sie zwangsläufig immer auf 
Modulebene vereinbart werden 
(Zeile 42). Semaphor-Variable 
enthalten ganzzahlige, positive 
Werte, die um eins erniedrigt 
werden, wenn ein REQUEST 
auftritt, und mit jedem RE- 
LEASE wieder um eins erhöht 
werden. 


Die Wirkung ergibt sich daraus. 
daß eine Task, die einen RE- 
QUEST enthält, suspendiert 
wird, wenn die Semaphore 0 
enthält. In der Task-Statusan- 
zeige unter RTOS (Befehl 'L') 
steht für eine dermaßen ange- 
haltene Task als Status'SEMA'. 
Macht nun eine andere Task ein 
RELEASE, so enthält die Se- 
maphore I: die Task höchster 
Priorität. die auf diese Sema- 
phore wartete, wird lauffähig 
und blockiert nun ihrerseits mit 
dem REQUEST die Semaphore 
für andere Tasks. Damit als er- 
ste Semaphor-Operation ein er- 
folgreicher REQUEST möglich 
ist, wird die Semaphore in der 
Vereinbarung mit dem Wert I 
vorbesetzt. 


In dem Programm sieht dieser 
Vorgang folgendermaßen aus: 
SCRUP erniedrigt mit dem RE- 
QUEST in Zeile 134 die Sema- 
phoreSCRSEM aufden Wert. 
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183 /u000 SCSAVE BRRREEERRRIBRIRRRRRIERTERTRBBRRTIIERRRRERBRRRRIDERERRRRRRNZ 
1B4 /8 save picture on Hloppy v 
185 /RURRERRERRRERUERERRBRRRRLRIRRUBDRRRLRERURESERERERRRERDRRRRRRRRRRRRRRERZ/ 
188 SCSAVE:TASK; 

DCL DRIVE FIIED; 

DEL FRAME CHARIB); 


CALL 5ETNAN; 
PUT "Draves " TO AI BY SKIP,A; 
GET DRIVE FROM Al BY SKIP, FI); 
PUT "File : ",MNAME TO Al BY SKIP,A,A,CIT; 
FNAME = NPSTRINNANE); 
PUT TO AI Er SKIP; 
ALL SCSAVEIMNAMEDEIVE,FNAME); 
197 END; /8 of task SCSAVE 8/7 
199 
199 /a008 SCLOAD BARRTEISRTSERTERDLLERRRRRERERRERRBRBRERERKRRERETERRRRERER/Z 
200 ’8 1oad picture from Hloppy v 
201 /ERHRERRERERRIRRETRLBERTERBRDRDRRDAITLERDRARRERITRERERSERERRRERERERRER/ 
202 SELDAD: TASK; 
20? BEL DeIvE FISED; 
204 DE FRAME Chad); 
205 
206 CELL GETNAN; 
20° PUT "Drives ’ TO AL By SrIP,A; 
208 SET DRIVE FPOM Al BY SKIP,FIN: 
20° PuT "File: ".MNAME TD Al Br SKIPA,A, LI: 
210  FNANE = OPSTRIMNAME): 
2 PUT TO AI BY SKIP; 
212 CALL SCPSETINNANEI; 
213 CALL SCLDADINNAME,BRIVE,FNAME); 
214 END; /8 08 task SCLOAD 8 
215 
216 
217 /u008 CLERR ARREBRIRTIEOTESIIRTIRRARGTLERTIERTEREBRRLERKERSERERRERINEN/ 
218 ’8 clear screen v 
219 /UHR0H8891001909100 10984081001 001001RK8RUHBRRERDERTRRRERRDRRDRRERRERAERY/ 
220 CLEAP:TASK, 
CALL GETNAM; 
PUT TOD AI BY SKIP; 
123 CALL SCRSETINNAMEI; 
224 CALL CLEAR; 
225 END; /8 04 task LLEAR 07 
226 
227 
228 MODEND; 
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Das Programmierbeispiel In dieser Folge unseres 
PEARL-Kurses ist ein Grundprogramm zum Zeichnen mit 
Mausunterstützung. 
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Wird nun die Maus bewegt, und 
die Task MOUSE möchte MX 
und MY ändern, so macht sie 
auch einen REQUEST auf 
SCRSEM (Zeile 100). Da diese 
aber den Wert O enthält, wırd 
MOUSE suspendiert und 
SCRUP läuft weiter, bis sie in 
Zeile 154 SCRSEM wieder frei- 
gibt. Mit diesem RELEASE 
wird MOUSE lauffähig, der 
REQUEST in Zeile 100 ist er- 
folgreich, und MOUSE kann 
MX und MY ändern, ohne mit 
SCRUP in Konflikt zu geraten. 


An dieser Stelle möchte ich auch 
auf eine Gefahr hinweisen, die 
sich aus Semaphoren ergeben 
kann. Wenn mit mehreren Se- 
maphoren gearbeitet wird. kann 
sich die Situation ergeben, daß 
Task A durch eine von Task B 
belegte Semaphore blockiert 
wird, Task B diese aber nicht 
freigeben kann, weil sie ihrer- 
seitsaufeine von Task A belegte 
Semaphore wartet... Diese Si- 
tuation wird anschaulich durch 
die Bezeichnung 'deadly em- 
brace’ ("tödliche Umarmung') 
beschrieben, da keine der beiden 
Tasks mehr lauffähig werden 
kann. Besonders heimtückisch 
sind solche Konstellationen da- 
durch, daß sıe nicht einfach zu 
erkennen sind. Vielleicht treten 
sie nur unter seltenen zeitlichen 
Randbedingungen auf, dıe zu- 
fälligerweise während der Test- 
phase eines Programmes nicht 
vorkommen, nach Murphy 
dann aber ım Betrieb den größt- 
möglichen Schaden anrichten. 


Interrupt als Wecker 


In Zeile 155 wird schließlich eine 
weitere Einsatzmöglichkeit von 
Interrupts deutlich: als Endebe- 
dingung für ein RESUME, 
Auch hier ist ein Interrupt als 
Ersatz für ein zeitliches Ereignis 
einsetzbar, wie esin Teil 3 dieser 
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Reihe vorgestellt wurde. Somit 
wartet SCRUP jetzt auf den 
SYNC-Interrupt und muß auf 
Hilfe von außen hoffen, denn 
SYNC war ja von SCRUP in 
Zeile 132 gesperrt worden. Die 
Freigabe von SYNC geschieht 
in Zeile 119 durch die Task 
MOUSE, wenn diese neue 
Mauskoordinaten bereitgestellt 
hat und der Bildschirm somit zu 
aktualisieren ist. SCRUP läuft 
also nur, wenn diesdurch Maus- 
bewegungen notwendig ist, an- 
sonsten ist sie suspendiert und 
verbraucht nicht unnütz Zeit. 


Doch nun zuder Task MOUSE. 
Bei ihr fällt hinter der schon 
bekannten Prioritätsangabe das 
Wort RESIDENT auf. Bei 
Rechnern, die nicht laufende 
Tasks auf externe Speicher aus- 
lagern, würde dies fordern, daß 
die Task immer im Hauptspei- 
cher bleiben soll, damit sie 
schnell aktivierbar ist. Da 
RTOS keine Tasks eigenständig 
auslagert, hat es hier nur den 
Effekt, daß der Task-Work- 
space nach Beendigung der 
Task nicht wieder freigegeben 
wird und bei der nächsten Ak- 
tivierung sofort zur Verfügung 
steht. Da MOUSE häufig akti- 
viert wird, führt dies zu ciner 
merklichen Zeıteinsparung. 


Bleibt nur noch zu erläutern, 
wie die Task MOUSE an die 
Mausdaten herankommt. Ich 
hatte schon oben erwähnt, daß 
die Mausdaten in einen Puffer 
geschrieben werden. Da dıe 
Adresse dieses Puffers bekannt 
ist, können diese Daten mit ei- 
ner Konstruktion, die eigentlich 
für Peripherie-Bausteine ge- 
dacht ist, leicht gelesen werden 
Dies beruht darauf, daß der 
68000 keine eigenen Adressen 
für Ein- und Ausgabe hat und 
die Register von Peripherie- 
Bausteinen deshalb wie Spei- 
cherstellen angesprochen wer- 
den (im Fachchinesisch: "me- 
mory mapped 1/0'). Um auch 
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von PEARL aus diese Register 
ansprechen zu können, kann 
man Speicheradressen als Da- 
tenstationen definieren und 
dann lesen und beschreiben. 


Hinter diesen Speicheradressen 
muß sıch dann allerdings nicht 
zwangsläufig ein Peripherie- 
Baustein verbergen, sondern 
man kann auf diese Weise auch 
normale Speicherplätze anspre- 
chen. Wenn diese Speicher- 
plätze wichtige Systemdaten 
enthalten, kann man auf diese 
Weise auch RTOS zum Absturz 
bringen. Solche gefährlichen Sa- 
chen will ich hier aber nicht vor- 
führen, es ıst nur als Warnung 
davor gedacht, auf unbekannte 
Speicherstellen schreibend zu- 
zugreifen 


Vereinbart wird eine Speicher- 
stelle als Datenstation im Sy- 
stemteil durch Angabe eines 
Namens und hinter dem Dop- 
pelpunkt "BU(hexnum)', wobei 
hexnum eine östellige Adresse in 
sedezimaler Form ist, davor 
steht hier noch Ol als Kennzei- 
chen dafür, daß byteweise zuge- 
griffen werden soll (Zeilen 12, 
13, 14). In der Spezifikation im 
Problemteil (Zeilen 20. 21. 22) 
besagt BASIC. daß in diesem 
Falle nur jeweils ein Byte binä- 
rer Daten gelesen werden kann. 
Für das Lesen aus Datenstatio- 
nen vom Typ BASIC gibt es ei- 
nen eigenen Befehl, der TAKE 
lautet (Zeilen 84, 85. 86). 
ebenso, wıe nur mit ‘SEND' ın 
solche Datenstationen geschrie- 
ben werden kann. 


Das Datenformat für die Maus- 
daten ist durch den Tastatur- 
prozessor vorgegeben und da- 
her identisch mit dem unter 
TOS. In dem ersten Byte sind 
die Bits 7 bis 3 gesetzt, Bit 2 
zurückgesetzt, und Bit O0 und | 
enthalten die Information, ob 
der rechte und linke Mausknopf 
gedrückt sind. In den Zeilen 91 
bis 98 wird diese Information in 


die Bitvariablen LBTN und 
RBTN übertragen. Byte 2 und 
3 enthalten in einem vorzeichen- 
behafteten Byte die Mausbewe- 
gung in x- und y-Richtung. Da 
diese Bytes jeweils in die obere 
Hälfte der FIXED-Variablen 
gelesen werden, muß noch 
durch 256 geteilt werden (Zeilen 
102, 111), 


Bilder auf 
Diskette speichern 


Leider stehen die Funktionen 
SCSAVE und SCLOAD, mit 
denen man die oben vorgestell- 
ten Bildschirmmodule auf Dis- 
kette speichern und von dort 
wıeder laden kann. nicht von 
der Kommandoebene aus zur 
Verfügung. Deshalb habe ich sie 
durch gleichnamige Tasks zu- 
gänglich gemacht. Als Parame- 
ter werden der Name des Bild- 
schırmmodules. die Laufwerks- 
nummer (0: Diskettenlaufwerk 
I, 1: Diskettenlaufwerk 2. 2: 
Festplattenpartition |, ...) so- 
wie der Name, unter dem das 
Bildschirmmodul gespeichert 
wird. im Dialog eingegeben. 
Auf gleiche Weise ıst ab Zeile 
217 die Funktion CLEAR zum 
Löschen eines Bildschirms von 
der Kommandoebene aus auf- 
rufbar. 


Zu einem richtig komfortablen 
Zeichenprogramm fehlen dem 
vorgestellten Beispielprogramm 
natürlich noch ein paar Eigen- 
schaften. So müßte beispiels- 
weise beim Zeichnen und beim 
Löschen die Strichbreite frei 
wählbar sein — ein Feature, das 
Sie nach der oben schon er- 
wähnten Methode jetzt gewiß 
leicht selbst hinzufügen können. 
Vielleicht reizt esSie auch, Mög- 
lichkeiten zum Zeichnen mit der 
"Gummiband-Methode’ oder 
zum Herstellen von geometri- 
schen Figuren vorzusehen. Nur 
zu. unter PEARL sind dem Pro- 
grammierdrang kaum Grenzen 
gesetzt. 
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Assembler-Programmierung 


Fühlen Sie sich auch nur 
dann wohl, wenn Sie den 
Takt im Prozessor 
schlagen hören und die 
Bits eigenhändig durch 
die Register schieben? 
Damit ist es auch unter 
einem echtzeitfähigen 
Multitasking- 
Betriebssystem nicht 
vorbei, wenngleich 
natürlich schon einige 
Regeln beachtet werden 
müssen. Aber das gilt 
schließlich für alle 
Betriebssysteme. Und 
manches läßt sich nun 
mal einfacher, 
eleganter und schneller 
in Assembler 
programmieren. 


Eine erste Anwendung für As- 
sembler-Programmierung sind 
Betriebssystemfunktionen, die 
dem PEARL-Programmierer 
nicht zugänglich sind, deren 
Leistungsfähigkeit aber reiz- 
volle Möglichkeiten eröffnet 
Zur Demonstration habe ich 
das ın Teil 2 vorgestellte Adreß- 
verwaltungsprogramm um eine 
dynamische  Speicherverwal- 
tung erweitert, die die bestehen- 
den Grenzen des Wachstums 
der Datensätze sprengt. 


In der ursprünglichen Version 
war dıe Datenmenge ja durch 
die Größe des Feldes bestimmt, 
in dem die Adreßstrukturen ge- 
speichert wurden. Natürlich 
kann man ın dem Programm ein 
großes Feld vorsehen, das so 
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schnell nicht voll wird. Aber 
damit hätte man sowohl im 
Rechner als auch dann auf der 
Diskette unnötig viel Speicher- 
kapazität belegt. solange das 
Feld noch weitgehend leer ist. 


Außerdem entwickeln Dateien 
normalerweise eine unglaublı- 
che Eigendynamik und wachsen 
dann sehr schnell. Demgegen- 
über wird jetzt nur soviel Spei- 
cher belegt. wie für die vorhan- 
denen Datensätze tatsächlich 
benötigt wird 


Übrigens zwingt das Programm 
in der vorliegenden Variante 
den Anwender, nach Eingabe 
von 50 Adressen die Datei auf 
der Diskette zu sichern. Nach 
dem erneuten Laden steht je- 
weils wieder Platz für 50 weitere 
Einträge zur Verfügung. 


Doch schön der Reihe nach 
Wenn der Programmierer in ei- 
nem PEARL-Programm ein 
modulglobales Feld vereinbart, 
berechnet der Compiler aus der 
Anzahl der Felder und der 
Länge der Objekte ın den einzel- 
nen Feldern den benötigten 
Speicherraum und reserviert ihn 
in dem Modul. Da dıe Adreß- 
struktur 102 Bytes groß ist, re- 
servierte der Compiler für die 50 
Feldelemente 5100 Bytes, wes- 
halb cın entsprechend großer 
Wert ın der ‘S="-Angabe am 
Anfang des Programms er- 
schien. 


Dieses Feld habe ich ausgela- 
gert, wodurch der durch das 
Programm fest belegte Speicher 
auf weniger als die Hälfte 
schrumfte. Allerdings steht nun 


kein Speicher mehr zur Verfü- 
gung. wenn das Programm ge- 
startet ist. Der muß erst beim 
Betriebssystem angefordert 
werden. Dieses geschieht beim 
Laden einer schon bestehenden 
Datei oder aber durch den ncu 
eingefügten Menüpunkt 'G: 
Adreßdatei anlegen’ (Zeile 286, 
343 - 353). Diesen Weg will ıch 
im einzelnen verfolgen 


Vorher mussen Sıe aber noch 
erfahren, wie ein Feld unter 
RTOS/PEARL aufgebaut ist. 


Es besteht aus zwei Teilen: dem 
Feldbeschreibungsblock und 
dem Speicherbereich, in dem die 
Feldelemente tatsächlich abge- 
legt werden. Der Feldbeschrei- 
bungsblock beginnt mit bis zu 
drei Worten, in denen steht, wıe 
groß das Feld in der jeweiligen 
Dimension ist. Deshalb können 
Felder auch nicht mehr als 
32767 Elemente enthalten 
Darauf folgt ein Zeiger, der auf 
das 0-te Element des Feldes 
zeigt. Da für PEARL definiert 
ist, daß Felder mit dem Ele- 
ment | beginnen, zeigt dieser 
Zeiger also irgendwo vor das 
Feld. Das mag zwar merkwür- 
dig erscheinen, macht aber die 
Berechnung der Adressen der 
einzelnen Feldelemente schnel- 
ler. 

Wenn das Feld von dem 
PEARL-Compiler eingerichtet 
worden ist, folgt auf diesen Zeı- 
ger der reservierte Speicherbe- 
reich. Das ist aber kein Muß, 
was ich ausnutze, indem ich den 
Zeiger nach Anforderung des 
nötigen Speichers auf diesen 
richte. Somit muß nur noch der 
Platz für den Feldbeschrei- 
bungsblock fest vereinbart wer- 
den. Dies geschieht in dem As- 
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sembler-Modul in den Zeilen 36 
bis 38 für das Feld, das später 
die Strukturen enthält, und in 
den Zeilen 39, 40 für das Feld, 
das zum Sortieren gebraucht 
wird. Dabei bedeutet die nach 
links geöffnete spitze Klammer, 
.daßessich um eın globales Sym- 
bol handelt, auf das von dem 
PEARL-Modul aus zugegriffen 
werden kann. Da die beiden 
Felder eindimensional sind, ist 
jeweils ein Wort nötig für die 
Feldgröße, hinter denen ein 
Langwort folgt für den Zeiger. 


Besondere Beachtung verdient 
Zeile 37, denn durch sıe wird die 
Feldverwaltung erst so richtig 
dynamisch. Normalerweise ist 
der Feldbeschreibungsblock ja 
für die Programme nicht greif- 
bar und somit die Feldgröße un- 
veränderlich. Durch das Spezi- 
fizieren der Feldgröße als Varia- 
ble aber ıst sie für das Pro- 
gramm greifbar. Wird eine 
Adresse eingegeben oder ge- 
löscht, so wächst beziehungs- 
weise schrumft das Feld für alle 
Funktionen, die auf es zurück- 
greifen, da NOOADR als Zäh- 
ler für die verfügbaren Adressen 
geführt wird. Das ist besonders 
für die Funktion WRITE wich- 
tig, da diese über die Felddimen- 
sionsangaben die Anzahl der 
aufdie Diskette zu schreibenden 
Bytes berechnet. und somit 
keine ‘leeren’ Adressen wertvol- 
len Diskettenplatz belegen. 


Eın weiterer Seitensprung ist 
nötig. Auf PEARL-Ebene muß 
man sich ja auch um die Para- 
meterübergabe an cine Funk- 
tion oder Prozedur nıcht weiter 
kümmern, das erledigt der 
Compiler. Für den Assembler- 
Programmierer aber sind die ge- 
nauen Spielregeln wichtig. 


Hyperprozessor 
Mit RTOS läuft ein weiterer 
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Prozessor auf Ihrem Rechner. 
der sogenannte "Hyperprozes- 
sor‘, Wer vom APPLE II noch 
"SWEETI6' kennt und hier eine 
Parallele vermutet, ıst schon auf 
dem richtigen Wege. SWEETI6 
wurde geboren aus der Not. 
viele 16-Bit-Operationen auf 
dem 8-Bit-Prozessor 6502 
durchführen zu müssen. Ähn- 
lich hier, wenngleich der 
68000-Programmierer natürlich 
über die Probleme eines 6502 
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“+ Datei 


Alı address ot ORTER 


Heten storage 


os BENS  OFFO.NENDO.ELSOME.T array > 


mit 16-Bit-Operationen nur 
müde lächeln kann. Im Ver- 
gleich aber etwa mit den Assem- 
bler-Befehlen einer IBM 370 
stellt auch der 68000 nur sehr 
einfache Befehle zur Verfügung. 
Für kompliziertere Operationen 
gıbt es deshalb unter RTOS den 
Hyperprozessor. Dabei handelt 
es sich um einen Programmteil 
im Betriebssystem, der die kom- 
plexen "Hyperproc-Befehle' in- 
terpretiert. Der Hyperprozessor 
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LEE 
TRETEN 
001 


g&2 


„L FORTIRI FORT 


to cnect atrur ien 


element ot 


art adarens 
ei eiosent of 
OFtER 

dark to caller 


indicate error 
bound o# DATEI 
douns 04 ORDER 


get address ot rErBLr 
sescrv allocated” 
1 no memory alloc 
no ıra allomed 
#ron T-lınk 
o' nen plocı 
o+ left neighoor 
) torward T=lınd 


MOVER.L FORTIMII,AD ade 04 rignt neignbor 


bachward T-lın 


interrupts 
nesory section 
get address ol Henker 
no meeory allocated 


Das Assembler-Modul verleiht dem 
Adreßverwaltungsprogramm die Fähigkeit zur 
dynamischen Speicherverwaltung. 


besitzt so etwas wie einen Pro- 
gram Counter, mit dem er seine 
Befehle liest, um sie dann soft- 
waremäßig zu dekodieren und 
abzuarbeiten. Dies entspricht, 
wenn man so will, der Arbeits- 
weise eines BASIC-Interpreters, 
nur wird dort mit Zeilennum- 
mern gearbeitet. 
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Das Geschäft der Parameter- 
übergabe übernimmt also der 
Hyperprozessor ebenso wie den 
Prozeduraufruf und die Work- 
space-Anforderung. Denn ge- 
nau dieses tut der erste Befehl in 
der Prozedur ALLOC (Zeile 
62). Dies ist ein wichtiger Punkt 
in bezug auf die Wiedereintritts- 


fähigkeit der Prozedur. Da mit 
jedem Prozeduraufruf ein neuer 
Speicherbereich als Workspace 
angefordert wird, können meh- 
rere Tasks gleichzeitig mit der 
Prozedur arbeiten, ohne daß die 
Parameter durcheinander gera- 
ten. Der Preis, den wir hierfür 
zahlen müssen, besteht darin, 
daß auf den Workspace nur in- 
direkt zugegriffen werden kann. 
Dazu wird vom Betriebssystem 
ein Zeiger aufden Workspace in 
AS bereitgestellt. Da varia- 
ble(A5) viel Schreibarbeit be- 
deuten würde, kann man auch 
statt dessen variable.X schrei- 
ben. 


In den nächsten drei Assem- 
bler-Zeilen werden die Parame- 
ter in Empfang genommen, die 
mit CALL ALLOC(DATEI, 
ORDER) auf PEARL-Ebene 
abgesandt worden waren. Da- 
beı werden mit OFFx.X und 
BNDx.X die Werte des Feldbe- 
schreibungsblockes ın den Pro- 
zedur-Workspace übertragen, 
während $0415 und LTST 
STCLEN.X die Informationen 
über Art des Feldinhaltes (hier 
Strukturen) und Größe der 
Feldelemente ($66 = 102, siche 
oben) enthalten. Daß ORDER 
FIXEDI5-Werte enthält, läßt 
sich aus $0401.X entnehmen, 
und da FIXEDI15-Werte immer 
2 Byte lang sind, ist kein 
LTST-Befehl (length test) erfor- 
derlich 


EPAR schließt die Parameter- 
übergabe ab und schaltet gleich- 
zeitig den Hyperprozessor aus, 
so daß man in ganz normalem 
68000-Code _ weiterschreiben 
kann. Diese Feldübergabe ist 
eine reine Vorsichtsmaßnahme, 
denn über die Felder ist ja in 
dem Assembler-Modul alles be- 
kannt. Es wird aber von dem 
Hyperprozessor beim Parame- 
tertransfer noch überprüft, ob 
die Datentypen und Längen 
übereinstimmen. So kommt es 
beispielweise zu einer Fehler- 
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INEITEIFHEIHT Son uowunun- 


ELLLETTTTTTTTITTEITETTEETEITTETETTITTETTTITIITITTIILIETEITITTITET ET 


ADDRESS DATAPFASE 
last undateı 11.09.86 1anas 


version I.2 for dynamic memory allocation 


veyboard, screen 8/ 
Kr AllTrumllı #or input of just I char 8/ 
pP; centronics parallel port #/ 
Dei FO.DAtElı adaress Hile 17/ 


PROBLENI 


SPC Al DATIOM IMOUT ALFHIC CONTROL ALL) 
SEC Xı DATIOM INOUT ALPHIC CONTROL ILL) 
SPC PP DATION OUT ALFMIC CONTROL IALLII 
SPC DF DATION INDUT ALPHIC CONTROL (ALL 


structure definitions 8/ 
TrPE ADDRESS STRUCT (/MAE  CMAAIDON, 
VORNAME CHAR (20), 
STRASSE OR (20), 
m FIIED, 
oar CHAR (20), 
TELEFON CMARI2ON 795 


Binding 04 global functions #/ 
SEC (WRITE,READI ENTRY GLOBALL 
SFC MLOC ENTRY GLOBALE 
Sec FREE ENTRY GLOBAL, 


tion of global variablen #/ 
ADDRESS GLOBALI 
SFC ORDER) FIIED GLOBALI 
SPC MOOADR FIIED GLOBALE 


constant declarations #/ 
BEL TRUE Imw BITEH INIT CTı"B3y 
DeL FALSE Inv BIT INIT C0'Bı 
DCL ADROFF mv FIIED INIT (5001 


variables declaration #/ 
DEL maraDn FIIED, 


/# role Dateinaten von Dissette 


v 
v 
v 
v 
v 
v 


LLLLLI 20773 


/URERERURERERRRERRERERRRRRERRERKERRREREKAUERRRERERBERRRENERERERRRERRRRR/ 


LOAD: PROC, 


DrEN Dr; 

CaLL REMIND (DPI 

CALL READ DE NOOADRI 
Cal FREL, 

CAAL MLLOC (DATEI, ORDER) 
Ir NOOADR E0 0 


THEN PUT "ERROR: NOT ENDUGH MEMORY" TO Al Ev SIP,A,SIPi 


NOOADK = 07 
mauaDe = 04 
RETLEN; 8 air 04 procesure 8/ 
rim 
CaLL READ (DF,DATENN 
CLOsE Dri 
MAIADR = NOOADK = ADROFFI 
END: /8 04 procedure LOAD #/ 


Swen 


DCL Dumm IMv FINED IMITAIDT 
Ir wOORDE 0 © 


THEN PUT 'heine Adressen vorhanden tum Sosichern' 


TO Al Pr (DWIP,A.IPL 
RETURN: ‚weit procedure #/ 
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meldung, wenn nur in dem 
PEARL-Programm, nicht aber 
auf Assembler-Seite, etwas an 
der Adreßstruktur geändert 
wird. Sonst könnte eine solche 
Änderung nämlich zu einem 
Betriebssystemabsturz führen. 
dem eventuell nur schwer auf 
die Schliche zu kommen ist. 


Bis Zeile 78 wird dann der Spei- 
cherbedarf für die beiden Felder 
zuzüglich 50 Adressen Reserve 
und $20 Bytes Verwaltungskopf 
des zu reservierenden Speicher- 
blocks berechnet. Mit diesem 
Wert in DI wird der Line-A- 
Trap WSBS aufgerufen, der bei 
den hohen Adressen zu suchen 
beginnt. bıs er einen Speicher- 
block genügender Größe gefun- 
den hat. Dessen Adresse wird in 
AI zurückgegeben. Ist aber das 
Zero Flag bei der Rückkehr zu- 
rückgesetzt, dann ist kein geeig- 
neter Speicherblock gefunden 
worden. Eine 0 in NOOADR 
macht diesen unglücklichen 
Umstand sodann der PEARL- 
Welt bekannt. Wurde aber ein 
Speicherblock gefunden. der 
groß genug ist. werden die bei- 
den Zeiger in den Feldbeschrei- 
bungsblöcken so gesetzt. daß 
die Daten in dem Speicherblock 
landen, auch wenn der Zeiger 
von DATEI vor den Speicher- 
block zeigt. 


Genau das Gegenteil wird mit 
der Funktion FREE erreicht: 
damit wird der mit ALLOC an- 
geforderte Speicherblock zu- 
rückgegeben. Dazu wird dıe 
Startadresse des Speicherblocks 
benötigt, die dafür in Zeile 81, 
82 in MEMBLK gespeichert 
wird. FREE überprüft in Zeile 
100 bis 102, ob Speicher ange- 
fordert wurde, und kehrt sofort 
zum Äufrufer zurück, wenn dies 
nicht der Fall ist. Ansonsten 
schaltet die Routine mit dem 
Trap 15 (OFF) alle Interrupts 
ab und löst den Speicherblock 
aus der T-link-Kette. 
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FIN 

Omen Dei 

Taı REWIND (DE): 

CL WEITE IDF.NOOADE DATEI, Dumm); 

Lose Dei 

Cal FREE: 

nOOaDE = 0: 

marade = 01 
DO: ’u 04 procedure SAME 87 


"tree allocates memory 8 


Bırcn INITeO 
ErıT BITeH 
InDEr FLNED: 
Mare RO) 
FRAGE OMRITZI 
or Du 


NOOADR = 05 Ik noch keine Äcressen vertuegdar #/ 
marade = 0 Hk noch keine Acressen vertuegbar 1/ 
WMILE NOT DONE REPEAT  /# Nommande Schleife #/ 
+1 Gib Menue aus 8/ 
MUT "ädressen Verwaltung" TO al BY (SIMIP,Aı 
Acresseni "„NODRDE TO AI Br A,FiS); 
„MÄLADR = NOGRDR TO Al BY A,FISI (DIPL 
zeigen’ TO AI Br @1P,Aı 
suchen’ TO al Br IP, 
ingeden' TO Al Br SIP, 
Adresse loeschen’ TO AI BY @IP,Ar 
Agresscatei lesen’ TO Al Br DIIP,A; 
Asresssateı speichern TO AI Br D1P.Aı 
Bor esssat egen’ TO AI Br SiP,a; 
Ausgang’ TO AL EY (DISMIP,AL 
wonlı "TORI ER (2ISIP,Ar 
7% Hole Kommando ı/ 
GET ODE FROM al Er BIP, 
+8 Fuehre konmando aus 1/ 
Erit = Faseı 
CASE TOFIHEDILTOUICHRN) = TOFREEDOATI = 1 


area 
CAL sort, 
FRAGE = "üeiter 1'190. Est," D°ruchenda "ı 
FOR I TO NOORDE WMILE NOT EIIT REREAT 
O@ - SELECT IDATEILORDERITI) .FRAGE.ERITIG 
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/# Brennen zeigen W/ 


RrieE /# Äörensen suchen 8/ 


"ir, 'D’'euchends "1 


MILE WOT EalT PEFEAT 
INDEL = SERKOHENEMEINDENIT 
IF Inder Eu 0 
IMENn EriT = TAUEL 
ELSE DM = SELECT IDATELTINDERI FRAGE,EIITIN 
rim 
Inder = Inder + di 
ENDı 0 04 WIILE loc 87 
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MT ICH IR Aarense wingesen 1/ 
NOOADE = NOORDR = 1; 
IF NOORDR GT made 
TMEN PUT "Datei voll" TO Al BY (DISK 1P,A,561P; 
MOORE = NOOADR = 1 
ELSE DATEI INDDADR = GETADR, 
rim 


MT IE DA/' /8 harenıe loeschen 1/ 
FREGE = "Loescnen 1" ta, Nein, Er nithe tl 
FOR | TO MOOADR MILE NOT EHIT FEFERT 
Ir "3" ED SELECT (DATEI CHI FRAGE,EIITD 
THEM DATELLT) = DATEI (NOOADRI 
NOOADR = MOOADE = I 


Fiss 
end 


Diese Kette besteht aus Vor- 
wärts- und Rück wärtszeigern, 
mit deren Hilfe alle Speicherbe- 
reiche, die durch eine Task oder 
eine von ihr aufgerufene Proze- 
dur angefordert wurden, bei ei- 
nem UNLOAD task wieder 
freigegeben werden. Würde jetzt 
einfach nur der Speicherbereich 
mit RWSP (Zeile 115) freigege- 
ben, so wäre die Kette unterbro- 
chen, was zu einem Betriebssy- 
stem-Absturz führen kann. Da 
in dieses "Auslinken’ niemand 
hineinpfuschen darf, mußte mit 
OFF jede Unterbrechung unter- 
sagt werden. bis mit Zeile 114 
die Interrupts wıeder freigege- 
ben werden. 


Da FREE keinen Prozedur- 
Workspace benötigt, kann sie 
sofort mit dem Ausschalten des 
Hyperprozessors beginnen und 
auch über AO zurückspringen. 
in dem die Adresse des Aufrufs 
enthalten ıst. Nach 2(A0) muß 
gesprungen werden, da hinter 
dem Prozeduraufruf noch das 
EPAR für das Ende der leeren 
Parametertransfer-Liste steht. 
ALLOC dagegen muß mit 
RETN beendet werden, da AL- 
LOC den Prozedur-Workspace 
auslinkt und wieder freigibt. 


Die notwendigen Änderungen 
indem PEARL-Programm hal- 
ten sich in Grenzen. Zum einen 
sınd natürlich im Kopf die ex- 
ternen Variablen und Prozedu- 
ren zu spezifizieren, zum andern 
in den Funktionen LOAD und 
SAVE die Prozeduraufrufe für 
ALLOC und FREE einzufügen 
Schließlich ıst noch im Haupt- 
programm ‘DB’ die Funktion 
"Datei anlegen’ zu ergänzen, da- 
mit eine Datei neu eingerichtet 
werden kann. 


Das assemblierte Modul wırd 
durch den Lader/Linker mit 
dem kompilierten "DB'-Pro- 
gramm verbunden, wenn man 
beim Aufruf in der Parameter- 
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MT IR E/  /8 Aaresadatei von Diskette lesen 8/ 
CALL LOAD, 


ALT /ER RI 78 Adressdatei auf Diskette schreiben 1/ 
CAaL Saveı 


ALT IE 6 NY IR Adresadatei einrichten #/ 
NOOADR = ADROFFI 
CALL ALLOC (DATEI, ORDERI: 
IF NOOADR EQ 0 
"ERROR: NOT ENDUGH MEMORY" 
TO Al BY (2ISKIP,A,SwIPL 


+8 Programa beenden #/ 
DONE = TRUEL 
FUT "Bye' TO Al BY (DISKIP,A,SKIP 


UT /# ınvalıd command 8/ 
1 8 do nothing 8/ 
FIN: /8 04 CASE w/ 
END; /# 04 REPEAT loop #/ 
END: U 04 t 


Diese Telle des Adreßverwaltungsprogramms ‘DB’ aus 
c't9/86 müssen geändert oder ergänzt werden; die übrigen 
werden unverändert übernommen. 


dor tne lIcader 


"ause 
ı undateı 


ss 
o tor losier 

"nE tor loser 

. tvoei resident task 
"ROuSE Yanı nare 

«sıo fast prioritv 
SPLEN work apace length 


9 for Systen 
ro Inc priority 
ouse start-FC 
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liste die Namen der S-Records 
einfach durch ein '-+" miteinan- 
der verknüpft. Also etwa: 


LOAD DBSR + DBSSR 


(vorausgesetzt, Sie haben beim 
Compiler- beziehungsweise As- 
sembleraufruf diese Namen für 
die Zieldateien gewählt.) 


Tasks auch in 
Assembler 


Aber nicht nur kleine Unterpro- 
gramme lassen sich in Assem- 
bler schreiben. Als Demonstra- 
tion dafür habe ich die in Teil 3 
abgedruckte MOUSE-Task 
noch einmal in Assembler ge- 
schrieben 


Das Programm beginnt mit eı- 
nem Modulkopf. wie er auch 
schon über den Prozeduren AL- 
LOC und FREE auftauchte. 
Dieser Kopf wird von dem Be- 
triebssystem für die Speicher- 
verwaltung gebraucht. So wer- 
den ın den ersten beiden Lang- 
wörtern jeein Vorwärts- undeın 
Rückwärtszeiger auf den näch- 
sten Speicherblock abgelegt. In 
einem Modul sind die modul- 
globalen Variablen sowie die 
Prozeduren und Funktionen 
enthalten. In diesem Fallenthält 
das Modul zwei Konstanten- 
werte, nämlich die Bitmuster für 
den MAUS- und den SYNC- 
Interrupt (Zeile 18 bis 20) sowie 
Platz fürein Wort. indem später 
der vom Keyboard übergebene 
Maus-Status gespeichert wird. 


Etwas länger als der Modulkopf 
ist der Task-Kopf in Zeile 28 bis 
37. Zusätzlich zu einem Modul- 
kopf enthält er noch die Priori- 
tät der Task, die Länge des 
Task-Workspaces, einen Zeiger 
auf den Task-Beginn sowie 
Platz für verschiedene Variable, 
die später vom Betriebssystem 
benötigt werden. 


29 


T sEss 
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MOVE. ALS, D“ rrunt mas L 
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test right Dutton 
save result 04 test 
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add old position 

’'e tor screen border 

din ut 08 range 
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ö v0 
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SYNC interrupt 
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enable SYNC interrupt 
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In Assembler arbeltet die MOUSE-Task noch schneller. 
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Wichtigste Aufgabe zu Beginn 
der Task ist es, den Stackpointer 
auf den dafür vorgesehenen Be- 
reich im Task-Workspace zu 
setzen (Zeile 45). Gleich an- 
schließend wird der MAUS- 
Interrupt gesperrt. Auch hierfür 
steht ein Line-A-Trap zur Ver- 
fügung. der Echtzeitprogram- 
mierung in Assembler komfor- 
tabel macht. Für die RE- 
LEASE- und REQUEST- 
Operationen gibt es ebenfalls 
solche Traps (Zeilen 59, 60 und 
91, 92). denen nur die Adresse 
der Semaphore ın Al übergeben 
werden muß. Genau wie ein 
PEARL-Programm wird auch 
hier das Assembler-Programm 
in den Zustand "waiting for se- 
maphore’ gebracht, wenn die 
Semaphore schon anderweitig 
‘requested’ worden ist. 


Beendet wird die Task auch wie- 
der durch einen Trap, nämlich 
den Trap I, der die Task in den 
Zustand ‘dormant' beziehungs- 
weise hıer in den Zustand 'sche- 
duled’ überführt. Wäre die Task 
nicht 'resident', würde mit 
TERMI auch der Task- 
Workspace zurückgegeben. Die 
Kommentare und eventuell das 
PEARL-Programm aus Teil 3 
dürften den Rest des Pro- 
gramms verständlich machen. 
Auf der PEARL-Seite sind nur 
geringe Modifikationen vorzu- 
nehmen. MOUSE ist jetzt als 
externe Task zu spezifizieren, 
während einige Variable sowie 
SCRSEM als 'GLOBAL' zu 
deklarieren sind. 


Was bringt es, daß man sich der 
Mühe unterzieht, die Task ın 
Assembler zu programmieren? 
Außer Frage steht, daß sich der 
Programmierer mehr Aufwand 
und eine größere Fehleranfällig- 
keit einhandelt. 

Nun, zum einen ist gerade diese 
Task natürlich ein schönes De- 
monstrationsobjekt für die Be- 
triebssystem-Traps. Es wird 
aber auch wohl schon deutlich, 
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raus 
last update: 


unter 
11.09.86 


LLLLIELEITTI ET 
58-9723 
MODULE MOUSEL 


2 SYSTEM 
Al Al Ken 
SYNCı EVLAOOOOOOON 4 
MAUS: EV BOODOOOO 1 


PROBLEN: 
sec al 
SPC SYnc 
Sec maus 


INTERRUPT} 
INTERRUPTL 


FOUSE TASr GLOBAL; 


OWIDTM, YWIDTH) FIXED: 

U CALIMIT,YLIMITI FIXED: 
wmi,my) FIXED GLOBAL: 
wmxO, MO) FIXED: 
AREOMS (2,11) BIT(ON 
are OHARS 
LETN BITIH) 
REIN BIT 


GALOBALI 
GLOBAL, 


GOTNm BITEL) INITE'O"BIH/E 
DCL SCHSEN SEMA GLOBAL FRESETINN 
/8 mouse position update senaphore 1/ 


RTOos 
Den2o 


version for enternal MOUSE tass 


to spare memory 


’* Terminal 
+8 v-Sync. Interrupt 
#8 Nausinterrrupt 


DATION INDUT ALFHIC CONTROL (ALLIG 


KCLEAR , SCRSET,SCRCHG,SCHILL,MIDTH) ENTRY GLOBAL; 
(SCLOAD, SCSAVE,SFRITL,SPRITS) 


ENTRY GLOBAL: 


TRUE INV BITEH INTTOLBIG 
FALSE Inv BIT) INITEO'BIE 


screen resolution 

screen border 

souse position 

old mouse position 

to save picture under arrow #/ 
name of active picture #/ 
left button Alag  W/ 

right button Hlag #/ 
picture name Hlag #/ 


Im Malprogramm aus c’t 10/86 brauchen nur der 
Modulkopf geändert und die Task MOUSE gestrichen zu 


werden. 


daß gerade hier die Abfragen 
und Tests einfacher auszufüh- 
ren sind als in PEARL. da der 
Datentyp Bit beziehungsweise 
Byte in Assembler einfacher zu 
handhaben ist. Ein weiteres Ar- 
gument könnte eventuell der 
geringere Speicherbedarf sein; 
dıe Assembler-Task benötigt 
nur 60% des Platzes der 
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PEARL-Task. Der wichtigste 
Pluspunkt zugunsten der As- 
sembler-Programmierung be- 
steht aber in der höheren Aus- 
führungsgeschwindigkeit. Da 
jedoch die Rechenleistung der 
Computer immer weiter steigt, 
verliert auch dieses Argument 
wohl mit der Zeit an Boden. 


RTOS— 
Pe(a)rlen 


In den letzten Folgen 
ging es um die 
Programmierung unter 
dem Betriebssystem 
RTOS/UH. Doch die 
Programmierung ist nur 
ein Schritt bei der 
Programmentwicklung, 
ebenso umfangreich ist 
danach oft das 
‘Debugging’, das Suchen 
nach Fehlern, das 
Austesten der 
Programmfunktionen. 
Einige der Hilfsmittel, die 
dem Programmierer von 
RTOS hierfür zur 
Verfügung gestellt 
werden, möchte ich in 
dieser Folge vorstellen. 
Und ich meine, daß für 
diese der Untertitel 
durchaus gerechtfertigt ist. 


Allerdings soll dieser Beitrag 
nicht ausschließlich aufdie Feh- 
lersuche beschränkt bleiben, 
sondern allgemein Aspekte der 
Programmentwicklung behan- 
deln. Deshalb werden alle fünf 
Compiler-Optionen näher be- 
schrieben. 

Schon in Folge 1 dieser Reihe 
hatte ich erwähnt, daß nicht un- 
bedingt alles, was zwischen '/* 
und */*' steht, von dem Com- 
piler als Kommentar ignoriert 
wird. Die Compiler-Optionen 
lassen sich an- und abschalten, 
indem man als erstes Zeichen ın 
dem Kommentar ein ‘-+' oder 
‘-' setzt. gefolgt vonL.P,M,T 
oder Bals Kennung der Option. 
Alle Optionen bis auf eine habe 
ich in einem kleinen Demon- 
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COMPILEROPTIONEN“Y 
+8 last updateı 03.10.86 Z2n1O 


/URSEREBTURTERLÜRERELTRUNERTERTRKRETERTRRERERERERIEKTERTERE ICE / 


MODLLE Mi 


w/8=L Protokoll ausschalten 8/1 


SYSTEN; 
Als 
PROBLEN 


SPC Al DATION INOUT ALPHIC CONTROL (ALLI: 


ı/8*L Protokoll einschalten #/; 


/1+P generierten Code 
TEST:TASKı 
DCL FIELD(8,5) FIXED: 
DeL (1,22)  FLOATISSI 


zeigen 


/1+T Feldgrenzenuebermachung einschalten 8/4 


FIELDIL,Z) = 0, 
FIELD(9,2) = 175 


PUT "FELD (1.5); ’,FIELDI,.T) TO AI 


Er SIP,.A,FISI,S IPs 


fin Zeilenmarkierung einschalten #/; 


FIELD(6,1) = 0; 
FIELDI(S,6) = 135 


/ı-M leilenmarkierung ausschalten 8/ 
18-7 Felogrenzenuebermachung ausschalten #/j 


1 = 2.141592 
12 = 21 2 0,815; 
12 = SIND; 


/8-F generierten Code nicht anzeigen #/; 


END; 


MODEND; 


In diesem Quelltext werden vier Optionen des 


UH-Compilers ausgenutzt. 


stralionsprogramm unterge- 
bracht. Auf die Option 'B' 
werde ich später noch eingehen. 


Wie bei den meisten Compilern 
und Assemblern, so läßt sich 
auch beidem PEARL-Compiler 
die Ausgabe eines Listings steu- 
ern. Zum einen kann dieses 
beim Aufruf des Compilers ge- 
schehen, indem als LO-(List- 
output-)Parameter ‘NO’ (kein 
Listing) oder eine Datenstation 
angegeben wird. Zum andern 
kann mit ‘+L?’ (Zeile 8) bezie- 
hungsweise ‘-L' (Zeile 3) im Pro- 
gramm die Ausgabe des Listings 
gestartet und wieder unterbro- 
chen werden. Dabei wird nach 
‘+L’ auch dann ein Listing aus- 
gegeben, wenn beim Compiler- 
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Aufruf ‘LO NO’ angegeben 
wurde. Das Semikolon zu Be- 
ginn der Zeilen 3 und 8 habe ich 
gesetzt, weil die List-Option im- 
mer von dem letzten vorange- 
henden Semikolon an wirkt. 
Stände etwa in Zeile 8 kein Se- 
mikolon vor dem Kommentar, 
so würde auch Zeile 7 aufge- 
listet. 


Compiler-Code 
sichtbar gemacht 


Noch aus dem Stadium der 
Compiler-Entwicklung stammt 
die P-Option, mit der der vom 
Compiler generierte Code ange- 
zeigt werden kann. Ab Zeile 10 
ıst deshalb vor jeder Programm- 
zeile zu schen, was der Compiler 


daraus gemacht hat. Wer aller- 
dings hofft, ein Assemblerlisting 
zu bekommen wie bei einigen 
C-Compilern, das so oder mo- 
difiziert dem Assembler ange- 
boten werden kann, wird ent- 
täuscht sein. Das Listing des 
Demonstrationsprogrammes 
sieht denn auch auf den ersten 
Blick überhaupt nicht nach 
68000-Code aus. 


Zum einen liegt das daran, daß 
der Compiler für komplexere 
Funktionen wie Ein-/Ausgabe 
auf den in Teil 4 beschriebenen 
Hyperprocessor zurückgreift. 
Dies kann man daran erken- 
nen, daß in dem Code- 
Listing ‘-TO-VIRTUAL’ auf- 
taucht. Mit ‘-TO-REAL' wird 
analog wieder auf 68000-Code 
zurückgeschaltet. Zum andern 
werden andere Mnemonics ver- 
wendet. So verbirgt sıch hinter 
D0*2 ein ADD.L D0,DO oder 
hinter DOAO ein MOVEA. 
L D0,A0. Es können sich sogar 
mehrere Instruktionen hinter ei- 
nem Mnemonic verbergen, wie 
etwa bei MOVD. Das D steht 
dabei für ‘double’ und bedeutet, 
daß eine FLOAT(55)-Zahl be- 
wegt werden soll. Das ist natür- 
lich mit einer Instruktion nicht 
mehr zu machen. 


Wer etwas mehr an dem vom 
Compiler generierten Code ın- 
teressiert ist, findet eine knappe 
Beschreibung der Compiler- 
Mnemonics im Handbuch, Ab- 
schnitt E-IV. Der Assembler- 
Programmierer, der dıe Be- 
triebssystem-Traps oder den 
Hyperprocessor verwenden 
möchte, sollte sich kleine Pro- 
gramme schreiben, in denen nur 
die Befehle enthalten sind, die 
genauer untersucht werden sol- 
len, und die Listings mit der 
P-Option ausdrucken lassen. 
Nach dem Laden kann man 
dann mit dem S-Befehl heraus- 
finden, an welchem Speicher- 
platz das Programm steht, und 
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es mit dem Monitor disassem- 
blieren. Vereinfachen kann man 
sich das Rechnen mit Adressen 
(die P-Option zeigt nur Adres- 
sen relativ zum Modulanfang 
an), indem man das Programm 
auf eine gerade Adresse lädt. 
Dafür gibt es beim LOAD- 
Befehl den Parameter AD. Mit 


LOAD AD 10000 


wird das Programm ab Adresse 
sedezimal 10000 geladen (wenn 
es nach ED.SR übersetzt wor- 
den ist). Man muß nur vorher 
kontrollieren, ob dort auch tat- 
sächlich Platz ist, sonst meldet 
der Lader 


>> LOADxx: 
MEMORY OVERFLOW 
LOADER INPUT 


und bricht den Ladevorgang ab. 


Noch eine Warnung an alle 
Assembler-Programmierer, die 
den Hyperprocessor benutzen 
wollen: Es ist zu erwarten, daB 
der Hyperprocessor im Zuge der 
Weiterentwicklung des Compi- 
lers ohne besondere Ankündi- 
gung geändert wird. So werden 
die Hyperprocessor-Befehle, die 
in dem Handbuch mit dem Hin- 
weis “Nicht für Neuentwick- 
lung’ stehen, bereits von dem 
Compiler D9,9 nicht mehr be- 
nutzt. Wenn sie dennoch im 
Hyperprocessor verblieben 
sind, dann nur, damit ältere 
Übersetzungen von Program- 
men noch laufen und weil die 
Codes noch nicht wieder benö- 
tigt wurden. Es empfiehlt sich 
deshalb immer, PEARL-Pro- 
gramme auf dem Rechner zu 
übersetzen, auf dem sie ausge- 
führt werden sollen, sowie nach 
einem Compiler-/Hyperproces- 
sor-Update alle Programme neu 
zu übersetzen. Bei Assembler- 
Programmem sollte beim Über- 
tragen auf andere PEARL- 
Rechner überprüft werden, ob 
der dort installierte Hyperpro- 
cessor die verwendeten Funk- 
tionen auch enthält. 
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Doch nicht allein für den 
Assemblerprogrammierer ist 
die P-Option interessant. Tritt 
in einem Programm ein Fehler 
auf, der das Betriebssystem ver- 
anlaßt, das Programm abzubre- 
chen, so wird eine Fehlermel- 
dung ausgeben. Diese Fehler- 
meldung enthält neben dem 
Programmnamen und einer 
Kurzbeschreibung des Fehlers 
auch den Stand des Program 
Counters, bei dem das Pro- 
gramm abgebrochen wurde. 


Diese Adresse sollte man sich 
notieren, denn wenn der Fehler 
nicht zufällig in einer Betriebs- 
systemroutine aufgetreten ist 
(das heißt, im Adreßbereich 
FA0000... FBFFFF), läßt sich 
damit der Fehler meist schon so 
ungefähr lokalisieren. Dazu 
muß die Anfangsadresse des 
Modules, das die fehlerhafte 
Task enthält, von der Adresse in 
der Fehlermeldung abgezogen 
werden. Mit dieser relativen 
Adresse geht man nun in das mit 
eingeschalteter P-Option über- 
setzte Programm und findet da- 
mit den Programmteil, in dem 
der Fehler auftrat. Natürlich 
kann dann die Fehlerursache 
noch ganz woanders liegen, aber 
einen Anhaltspunkt hat man 
auf diese Weise schon mal. 


Wesentlich einfacher gestaltet 
sich die Fehlersuche, wenn das 
Programm mit der M-Option 
übersetzt wurde. M steht für 
mark oder Markierung und be- 
deutet, daß das Programm die 
Nummer der Programmzeile, 
die es gerade abarbeitet, aneiner 
bestimmten Stelle speichert. 
Tritt nun wie oben ein Fehler 
auf, so wird nicht der Stand des 
Program Counters,'sondern die 
zuletzt gespeicherte PEARL- 
Zeilennummer in der Fehler- 
meldung ausgegeben. Diese 
muß aber nicht unbedingt die 
Zeilennummer der zuletzt abge- 
arbeiteten Zeile sein, da die 


Markierungsoption ja auch ab- 
schaltbar ist und dann nicht 
mehr die aktuelle Zeilennum- 
mer gespeichert wird. 


Wie man in dem Compiler- 
Code der Zeilen 17 und 18 er- 
kennen kann, wird zur Speiche- 
rung der Zeilennummer der 
Line-A-Trap A036 mit dem 
Mnemonic LIMR verwendet, 
hinter dem die Zeilennummer 
steht. Gespeichert wird die Zei- 
lennummer im Task-Work- 
space bei der relativen Adresse 
$00A2. Mit dem Kommando 
DL des Betriebssystems läßt 
sich diese Nummer anzeigen. 
Man kann sich diese Nummer 
auch während des Laufs cınes 
Programmes anzeigen lassen 
und so eventuell grob abschät- 
zen, wie weit ein Programm ge- 
rade ist. Eine Möglichkeit zur 
Fehlersuche besteht darin, in 
verschiedenen Programmzwei- 
gen eın 'SUSPEND' einzu- 
bauen. Mit DL läßt sich dann 
feststellen. in welchem Pro- 
grammzweig das Programm ab- 
gebrochen wurde. 


Eine beliebte und verbreitete 
Fehlerursache ist die Über- 
schreitung von Feldgrenzen. 
Dieser Fehler ist besonders an- 
genehm, da er sich häufig erst 
später auswirkt. Dann kann 
aber zum Beispiel die Verzeige- 
rung der Speicherblöcke schon 
zerstört sein, was das Betriebs- 
systern mit einem Kaltstart ho- 
noriert. Daß aber selbst mit der 
Meldung 'RESET' auf dem 
Bildschirm noch nicht alles ver- 
loren ist, zeige ich später noch. 


Gegen die Index-Fehler ist im 
UH-PEARL-Compiler ein 
Kraut namens T-Option ge- 
wachsen. Diese überprüft (na- 
türlich nur, wenn eingeschaltet) 
während der Programmausfüh- 
rung, ob mit den gegebenen In- 
dizes die Feldgrenze nicht über- 
schritten wird. Bei eindimensio- 
nalen Feldern und Zeichenket- 
ten (die T-Option wirkt auch für 
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LLLEITSTTITEITETETT 


7 


ousune 


OLE MI 


Tas“ 

TEST TAGS: 
0084: LDIL FFFF ‚FFEE , 
00BAı ABAL 

WBC: ADILN/, 

OOR2: STAL IML) . 


agree 


ı8 DCL FIELDIB,S) FILED 


ı Der tnı,00 FLOAT 


21 /8+T Felogrenzenuedermachung einschalten 8/1 HOvm 


0096: MOVe 
009: LEFA 
1152 
var 
Don? 
ADDr 


mov tal) „LONST OO EL. 


FIELDII,TI = 07 
NOV DO „CONST 0019 1, 
LEFA CONnST mus Il, 
1152 
Cwiı Do, 
D02 

3 ADDE DO „UM) „ 
FR) 


MOVm (AD) „CONST O00D Il, 


FIELDI9,D) = 135 
00Cd: -TO-VIETUML 


OOCBı FUT WIE „Al IDATN/TEPTINIEODIAN,L/, 
0009: EACS GOCC „CONST 4549 CH, 


OMDs: -TO-KEAL 
mov DO „CONST 019 ı1, 
LEFA CONST 000S 11, 
ır52 
ww DO. 
Dos? 
ADDX DO „tmL) „ 
s mOva TEMP S8tWL) „DO „ 
OOEE:-TO-VIRTUML 
6: EALW TEMP EB) I. 
0064: EOLI L/1, 
OOFBı >DLELDEF L/ 
OOFBı SKFO LOST DO0I 11, 
OOFC: AFOL CONST FFFF Il, 


01001 FFOR CONST (000 11,CONST 0000 21.CONST 000% Kl. 


0108: SAFO CONST 0001 11, 
010Cı FESP 
O010Eı »>LELDEF L/I 


Mit der P-Option kann sich 
der Programmierer den 
vom Compller erzeugten 
Code ansehen. 
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s/8eL Pratoroll einschalten Ki 


VAR generierten Code anzeigen Wi = 


[72 


/URRUUREUKRIERERRDERERERERRKERERRERBELERBRTERURRRRRERRRRRRRECMME/ 


.- 2 PUT "FELD (1,3): *,FIELD(L,SI TO Al 


BY SYIP,A,FtS),SKIPI 


= 26 /i+M leilensarkierung einschalten #/j 


O10Eı LIMR 0027 , 


O112ı MOvm DO „CONST OOOE Al, 
0116: LEFA CONST 0005 X, 


O1lA: IT52 
O11Cı Cvwi DO, 
orlE: Do82 


0120: ADDI DO „(HL) . 


» DOAO 


a) „CONST DOOO Ki. 


FIELDI&,.I) = 05 


LINK 0028 . 


Move DO „CONST 0075 21, 
s LEFA CONST 0005 Hl, 


». 


D9 „im. 


0140: 


0142: MOVW (AO) „CONST OO0D A, 

..2» FIELD(S,6) = 135 

= 29 /ı-m Zeilensarkierung ausschalten #/j 

” 0 #4-T Feldgrenzenuenerwachung ausschalten 


0146: MOVF DG „CONST 


0148: CvFD 0 „ 


D64B7ER FL, 


014C: MOVD HI LOC AlmL) „DO. 


0158: CVFD DO, 


. bi} XI = 3.1419925 
0154: MOVF DO „CONST MOSBSIER FL, 


O15A: MULD DO „XI LOC Au) „ 
01621 MOVD 12 LOC Cim) „DO, 


..2 ı2= 21 8 0.815: 
Ol6A: MOVD DO „x2 LOC CiML) „ 


01721 LEFA TEMP 141ML) 


0176: JSR @DSIm (EXT), 
O17C: MOVD a2 LOC Ci) „DO. 


Ss END; 


NODEND; 


den .CHAR-Zugriff auf Zei- 
chenketten) können somit 
schon keine Fehler mehr durch 
Indizes passieren, die den gülti- 
gen Bereich verlassen, ohne daß 
dieses eine Fehlermeldung zur 
Folge hätte. 


Anders sieht dies bei mehrdi- 
mensionalen Feldern aus. Die 


12 = Sin 
/4-P generierten Code nicht anzeigen #/ı 


Elemente dieser Felder können 
Ja im Speicher nur eindimensio- 
nal gespeichert werden. Deshalb 
müssen die Indizes dieser Felder 
in einen eindimensionalen Index 
umgerechnet werden. Nur die- 
ser eindimensionale effektive 
Index aber wird von der T-Op- 
tıon überprüft, wodurch ein 
Schutz für den Speicher außer- 
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halb der Felder gegen Über- 
schreiben gewährleistet ist. In- 
nerhalb eines Feldes kann aber 
ein Index durchaus trotzdem 
den gültigen Bereich, der in der 
Deklaration des Feldes festge- 
legt ist, verlassen. 


In dem Demonstrationspro- 
gramm ist dies in den Zeilen 22 
bis 28 zu sehen. In Zeile 18 ist 
FIELDals8x 5großes Feld von 
FIXED-Werten vereinbart. In 
Zeile 22 und 23 weise ich nun 
zwei Feldelementen Werte zu, 
wobei bei der zweiten Zuwei- 
sung eine Feldgrenzenüber- 
schreitung erfolgt. Dasselbe 
passiert in den Zeilen 27 und 28, 
nur die Feldgrenzenüberschrei- 
tung passiert in der anderen 
Dimension. Läßt man das über- 
setzte Programm nun laufen, so 
erscheint 


«TEST 
FELD (1,3): 13 


>> TESTI=0028 WRONG 
INDEX 


auf dem Bildschirm. Offensicht- 
lich ist die erste Überschreitung 
nicht entdeckt worden. Der aus- 
gegebene Wert ‘13° läßt aber 
schon ahnen, woran dies liegt: 
die Feldelemente (x,3) sind di- 
rekt im Anschluß an die Feld- 
elemente (x,2) gespeichert. So 
wird mit Zeile 23 das Feld 
(1,3) überschrieben, da sowohl 
2x8 +9 = 25 als auch 
3x8 + 1 = 25 auf denselben 
eindimensionalen Index führen. 
Da 25 aber kleiner oder gleich 
5x8 +8 = 48 ist, wird kein 
Fehler entdeckt. Anders im 
zweiten Fall. Dort wird in Zeile 
28 durch6x8 + 5 = 53 der 
Speicherbereich des Feldes ver- 
lassen, was mit der T-Option 
ae prompt als Fehler erkannt 
wird. 


Sowohl die M- als auch die 


T-Option veranlassen den Com- 
piler, mehr Code zu erzeugen 
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(der Line-A-Trap ITS2 mit den 
beiden Zeilen vorher ist nur für 
die Feldgrenzenüberprüfung). 
Da dies sich natürlich ın einem 
höheren Zeitverbrauch nieder- 
schlägt, werden diese Optionen 
zumeist aus den fertigen Pro- 
grammen entfernt und nur beim 
Auftauchen von Fehlern wieder 
eingebaut 


Als fünfte Option gibt es noch 
die oben erwähnte B-Option, 
wobei das B für ‘big module’ 
steht. Durch diese Option wird 
der Compiler veranlaßt, nach 
jeder Prozedur oder Task den 
Konstanten-Pool zu leeren. Der 
Compiler speichert längere Zah- 
lenkonstanten und Zeichenket- 
ten nicht ım Programmcode, 
sondern sammelt sie und legt sie 
normalerweise am Ende eines 
Modules ab. Aus dem Pro- 
gramm wird dann mit PC-rela- 
tiver Adressierung auf diese 
Konstanten zugegriffen. Da da- 
bei der Ort im Programm, von 
dem aus zugegriffen wird, und 
der Ablageplatz der Konstante 
nıcht weiter als 32000 auseinan- 
derliegen dürfen, bedeutet die- 
ses Verfahren eine Beschrän- 
kung der Modulgröße auf 32 
KByte. Diese läßt sich mıt der 
B-Option wıeder aufheben: in 
langen Programmen mit vielen 
Konstanten kann dadurch der 
Compiler veranlaßt werden, 
nach jeder Prozedur oder Task 
einen Ablageplatz für Konstan- 
ten einzurichten. Dadurch darf 
jede Task und Prozedur bis zu 
32 KByte lang werden, eine 
Obergrenze, die in der Praxis 
wohl kaum jemals in Erschei- 
nung treten wird. 


Tracing auf 
PEARL-Ebene 


Nach den Möglichkeiten, die 
die Compiler-Optionen bei der 
Fehlersuche bieten, sollen jetzt 


noch einige Befehle des Kom- 

mando-Interpreters vorgestellt 

werden. Da ist zunächst der Be- 

fehl 

TRACE taskname L lineno 
(.lineno) 


wobei lineno eine 4stellige Zahl 
ist. Damit dieser Befehl etwas 
bewirkt, muß das Programm 
mit eingeschalteter M-Option 
übersetzt worden sein. 


Durch den TRACE-Befehl wird 
die betreffende Task jedesmal 
vor Bearbeitung der angegebe- 
nen Zeile suspendiert. Da der 
Linemarker-Trap, wie in dem 
Demonstrationsprogramm für 
die Compiler-Optionen zu se- 
hen, jeweils als erste Instruktion 
vor dem restlichen Code einer 
Programmzeile steht, ıst diese 
Programmzeile zum Zeitpunkt 
der Unterbrechung noch nicht 
ausgeführt. Durch eine Mel- 
dung erfährt man, daß eine ein- 
gegebene Zeilennummer er- 
reicht wurde und welche es war, 
wenn zwei angegeben waren. 
Jetzt kann man zum Beispiel 
eine Task starten, die Variablen 
anzeigt. Durch einen erneuten 
TRACE-Befehl kann man dann 
die Zeilennummer(n) ändern, 
bei der/denen unterbrochen 
werden soll. Die unterbrochene 
Task kann mit 


CONTINUE taskname 


wieder gestartet werden. Wurde 
die Zeilennummer vor dem 
CONTINUE nicht geändert, so 
bleibt sie bestehen. Man kann 
also Schleifen bei einmaliger 
Eingabe einer Zeilennummer 
ohne neues TRACE-Kommando 
jeweils eine Runde laufen las- 
sen. Die Zeilenüberwachung 
wird erst durch den Befehl 


NOTRACE taskname 
aufgehoben. 

...undin 

Assembler 

Aber nicht nur für PEARL- 
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Programme läßt sich der 
TRACE-Befehl einsetzen. Man 
kann auch statt °L lineno’ eine 
sechsstellige Sedezimaladresse 
(allerdings nur eine) angeben 
und damıt Assemblerpro- 
gramme an der angegebenen 
Adresse anhalten. Allerdings 
gibt es einige Bedingungen, wie 
etwa absolute Sprünge, durch 
die die  Programmzähler- 
Überwachung lahmgelegt wird 
Mit dem TRACE-Befehl wird 
nämlich Bit 31 des Programm- 
zählers gesetzt, so daß auch mit 
BSR aufgerufene Prozeduren 
verfolgt werden können Wird 
allerdings der Programmzähler 
neu geladen, so wird Bıt 3] zu- 
rückgesetzt; die angegebene 
Adresse kann dann nicht mehr 
erkannt werden, da auch aufdas 
gesetzte Bit 3] geprüft wird. 


Hat man eine Assembler-Task 
auf diese Weise angehalten, 
kann man sich die augenblick- 
lichen Registerinhalte mit dem 
Befehl 


DR taskname 


anzeigen lassen. Jedesmal, wenn 
eine Task unterbrochen wird, 
muß der Zustand der Task ge- 
speichert werden, damit sie an- 
schließend ohne Schwierigkei- 
ten weiterlaufen kann. Zu den 
Informationen, die den Zustand 
eıner Task ausmachen, gehören 
auch die Registerinhalte. Des- 
halb ist im Task-Workspace je- 
der Task Speicherplatz für sie 
reserviert, der mit dem DR-Be- 
fehlangezeigt werden kann. Das 
Anzeigeformat ıst aus Einfach- 
heitsgründen das des DM-Be- 
fehls (display memory)- DR tut 
ja letztlich dasselbe - und von 
daher nicht sehr übersichtlich, 
Welcher Wert zu welchem Re- 
gister gehört, läßt sich dieser 
Tabelle entnehmen: 
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AT(USP) 
D2 


D6 


A2 
A6 


In diesem Format werden 
beim DR-Befehl die 
Register angezeigt. 


Die mit St gekennzeichneten 
Stellen enthalten die letzten drei 
Langwörter des Systemstacks, 
Adr. gibt dıe Speicherstelle an, 
an der die Register gespeichert 
sind. Um Registerinhalte zu än- 
dern, braucht man nur mit dem 
SM-Befehl (set memory) die 
neuen Werte an die entspre- 
chenden Speicherstellen zu 
schreiben. Läuft die Task dann 
weiter, etwa nach einem 
CONTINUE, so werden die ge- 
änderten Werte in die Register 
übernommen. 


Retten, was 
zu reiten ist 


Eigentlich würde man Befehle 
wie DM (display memory) und 
SM (set memory) eher bei einem 
Monitor als bei einem Kom- 
mandoprozessor erwarten. Um 
so mehr freut man sich natür- 
lich, denn sie lassen Eingriffe zu, 
die von anderen Betriebssyste- 
men nicht so einfach gestattet 
werden. Als Beispiel dafür 
möchte ich demonstrieren, wie 
nach einem Rechnerabsturz und 
dem damit verbundenen Kalt- 
start trotzdem noch Files im 
Speicher gerettet werden kön- 
nen. Bild I zeigt die Speicherbe- 
legung vor dem Absturz, Bild 2 
die danach. Wıe zu sehen, sind 
alle Files und Module gelöscht, 
der Bereich zwischen 262A und 
F73F2istmit FREE angegeben. 


D7 


Sı5/4 


AT(SSP) DO DI 
D3 


D4 D5 

AO Al 

A4 AS 
St 3/2 Sı 1/0 


Doch der Schein trügt, kein ein- 
ziges Byte ist gelöscht. nur die 
Verzeigerung ıst neu aufgesetzt 
worden. 


RTOS verwaltet den Speicher, 
indem es ihn in Speicherblöcke 
aufteilt. Am Anfang jedes Spei- 
cherblockes stehen zwei Adres- 
sen, nämlich die Adresse des 
sich jeweils direkt vorne und 
hinten anschließenden Spei- 
cherblockes. Wenn man die 
Adresse nur eines Speicher- 
blockes weiß, kann man also die 
Adressen aller Speicherblöcke 
herausfinden. So ein Verweis 
auf den nächsten Datenblock 
wird auch als Link bezeichnet; 
da jeweils zwei vorhanden sind, 
unterscheidet man zwischen 
FORL (forward link, Vorwärts- 
verweis) und BACKL (back- 
ward link, Rückwärtsverweis). 


Mit dem Kaltstart wird der 
FORL der Anfangsmarke auf 
die Endmarke des Speichers ge- 
setzt und der BACKL der End- 
marke auf die Anfangsmarke. 
Außerdem wird der so entstan- 
dene Speicherblock mit dem 
Typ ‘FREE’ gekennzeichnet. 
Wenn man die Verzeigerung der 
Speicherblöcke, die vor dem 
Absturz im Rechner waren, wie- 
derherstellen kann, sind häufig 
die Dateien noch zu retten. 


Doch dazu muß man einen An- 
satzpunkt finden: Ich wußte 
noch, daß in dem ersten Spei- 
cherblock der Compiler lag und 
in dem zweiten der Assembler. 
Also machte ich mich mit dem 
DM-Befehl auf die Suche nach 
dem Namen des zweiten Modu- 
les, "ASSEM'. Da der Name ab 
Byte 10 in einem Modul steht, 
war der Modulanfang schnell 
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verlassen hatte. Da ich im Mo- 
nitor keine Speicherverände- 


{ rungen vorgenommen hatte, 
TYPE Typ des Speicherblockes (S10 = MDLE) konnte ich ziemlich sicher sein, 


bei MDLE NAME 6 Buchstaben Name daß bis auf die oben beschrie- 


benen Links die übrige Verzei- 
gerung keinen Schaden genom- 


Speicherblock: FORL Vorwärts-Verweis 
BACKL Rückwärts-Verweis 


gefunden. Wie erwartet, zeigte 
BACKL noch auf den ersten 
Speicherblock. Jetzt mußte nur 
noch FORL des ersten Spei- 
cherblockes auf das Modul 


"ASSEM "gerichtet werden, und Rekonstruktion der Speicherorganisation 
schon zeigte sich mit dem 


S-Kommando der Speicher wie- nach einem Reset 
der gefüllt. Allerdings erschien 
der Block mit dem Compiler 
noch als FREE. Durch Ändern ss 


de: -Bytes war aber auch 0022AB->0022B2 MARK 

d 2 et ren 0022B2->0022FC ATSK Resident WIDLE 
as schnell Kornigiert. 0022FC->002246 TASK Resident MACIAI 

002346->002390 TASK Resident #RS2T 


Das S-Kommando braucht nur 002790->0023DA TASK Fesident MMIDIT 
f 5 0023DA-»002424 TASF Resident #PFORT 

FORL, um alle Speicherblöcke 002424->00246E TASK Resident NEDFMN 
anzuzeigen. Für die Routinen, 00246E->002488 ATSF Resident WERROR 
die den BACKL benutzen (etwa 002488->002502 TASK Resident #VDATN 
beim Suchen nach Task Work- 002502->00254C TASK Resident #USERO 
space), i der BACKL der 00254C->00259%6 TASK Fesident USER! 
rn ee) nd a d = er 002596->002SE0 TASK Resident MXCMMD 

DO KEL AU (Gen N en 0025E0->00262A TASK Fesıdent HUHFYE 
Block zu setzen. Damit war die 00262A-) MDLE PCOMP 
Verzeigerung der Speicherver- O0BAAL- MDLE ASSEM 
waltung schon restauriert. Nur ee re ENT 

r w 20 

der ED-Filemanager wußte OOAAI6->OOBAI6 EDTF EDFILE 
noch nichts von dem Glück. daß O0BAL&-»OFTIF2 FFEE 
ED.EDFILE gerettet war. Das OFT3F2->000000 MARK 
liegt daran, daß die Speicher- 
blöcke, die der ED-Filemanager © So sah die Speicherbelegung vorher 


verwaltet, durch eine Extra- 
Verweiskette verbunden sind. 
Um ED.EDFILE dort wieder 


anzuhängen, eröffnete ich ein- 2 en en 
fach ein File ED.SI. Bei Offseı | 9022Ae->°022E2 Mark 
O022B2-»0022FC ATSK Resident 
$20 stand dort 0000 0000 als O022FC->002746 TASK Resident 
Zeichen dafür, daß es keine wei- 002746-)002300 TASK Resident 
teren ED-Files gibt. Dort war 002390-0023DA TASK Resident 
& - 2304->00242 e 
jetzt nur noch die Adresse von 90230R-2002424, „TREK, ‚Besidene 
ED.EDFILE einzutragen, und 002424-»O0244E TASK Resident 
4 ragen, 00246E->0024BB ATSK Resident 
auch der ED-Filemanager 0024B8->002202 TASK Resident 
kannte EDFILE wieder. 002502->00224C TASK Resident 
00254C->002595 TASK Resident 
002596->002SE0 TASK Resident 
Ein wenig aufpassen muß man 002SE0->00262A TASK Resident 
natürlich, wenn der Kaltstart DOZEZDZSSCHSEL SERER 


; OF73F2->000000 MARK 
aus einem Programmfehler her- 


rührt. Ich war zu meinem miß- 
lichen Kaltstart gekommen, @® so nach dem ungewollten Kaltstart. 
weil ich versehentlich den Mo- 
nıtor mit "RT" statt mit "RW" 
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DM 8A4s 20 

0OBA4b: 0000 ASI& OONO Z62A 0010 4157 5145 4020 
OV0BASL: 8034 9SCF 0000 0000 BECE 81C4 9564 955E 
00BAbb: 0018 BOIC 0014 0047 OL5B NO0OD 0202 0404 


© Jerzt wird nach dem Namen des zweiten Moduls gesucht: 


aıDm 262A 20 

00252A: MOOF TZF2 0000 2SEO 0000 50873 4F4D 5020 
O0263A: OFF 9541 BO9A BAC& A20I A9FO ASFT 0000 
00264A: 0078 9073 0018 0047 0200 DCDS 5349 4ESO 


® dann nach dem Namen des ersten: 'PCOMP 


25m DEIA 0000 Bash 


senenn ht, „ASSEN, 
.4 nennen. 
uuunnnebehieeeer 


ASSEM' 


unSenche.FCOMF, 
ehe. 
“Bit...5....51N. 


© Der Zeiger FORL wird auf den Anfang des zweiten Moduls gerichtet. 


15 

OOZ2AB- -OO22E2 MARK 
OOT2B2->OO22FC ATS» 
OO22FC->002346 TASY 
002346->00229%0 TASF 
002790->0027DA TASY 
O0O2IDA->002424 TASK 
002424->0N246E TASK 
OO246E-)OO24BE ATSI Resident 
0023B8- TASY Resıdent 
TASF_ Resident 
00254L- 002596 TASF Resident 
002506- »0025E0 TASY Kesident 
O0O2SEO-00262A TASK Resident 
OO262A->00BA4& FREE 
OOBA46->N0ASIS MDLE 
OOASI6->O0OASSB MDLE 
O00ASSS- »ONAAIS TASK 
VOAA1E->OOBAI& EDIF 
OOBALG-»OFTIF2 FREE 
OFTZF2-V000000 MARK. 


sIDLE 

sAacial 
aRrs232 
em1D13 
WPPORT 
sEDERN 
WERROR 
“VDATN 
WUSERO 
USERI 
WICHMD 
MUHFIE 


Resident 
Resident 
Resident 
Resident 
Resident 
Fesident 


ASSEM 
PRINT 
SETFEN 
EDFILE 


© Noch erscheint der Compiler als 'FREE' in der Speicherbelegung, 


SM 2624-8 0010 


© durch Ändern des Typ-Bytes ist das schnell korrigiert. 


DM FTIF2 20 

OFT3F2: 0000 0000 0000 262A 8000 0000 
OF7402: 0400 0400 0001 0018 0000 0000 
OF74121 0018 0000 0000 0000 0000 0000 


SM F73F2+4 0000 BAl& 


®® Jeızt wird BACKL der Endemarke korrigiert. 
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men hatte. Nach einem Kalt- 
start durch Programmfehler 
sollte man aber alle Links über- 
prüfen und gegebenenfalls aus- 
bessern. 


Natürlich besteht die beschrie- 
bene Möglichkeit zum Restau- 
nıeren der Zeiger nur, wenn der 
Speicher beim Kaltstart nicht 
gelöscht wird. Schwierigkeiten 
sind bei der nächsten RTOS- 
UH-Version für den AtarıST zu 
erwarten, die zur Zeit vorberei- 
tet wırd. Und zwar aus folgen- 
dem Grund: Es hat sich heraus- 
gestellt, daß die Video-Initiali- 
sierung nach einem Kaltstart 
beim 1040ST nicht immer ein- 
wandfrei verläuft. Schuld daran 
ist eine winzige Inkompatibili- 
tät, deren Ursache bısher nicht 
aufzuspüren war. Deshalb wird 
bei der künftigen Version die In- 
itialisierung noch dem TOS 
überlassen; der Aussprung in 
die RTOS-Welt erfolgt erst spä- 
ter. Dann hat aber TOS - 
warum nur!? — zum Teil den 
Speicher gelöscht, und nach ei- 
nem Reset ist tatsächlich nicht 
mehr viel zu retten. 


Ein anderes Beispiel für Mani- 
pulationsmöglichkeiten ist das 
Verändern von Task-Prioritä- 
ten. Es gibt Ausnahmefälle, in 
denen eine Task nicht solange 
warten darf, wie etwa die 
ERROR-Task zur Ausgabe cı- 
ner Fehlermeldung braucht. 
Beim ATARI mit seiner Termi- 
nalemulation ist ja jede Zeichen- 
ausgabe recht zeitaufwendig. 
Solche Tasks müssen dann auf 
eine höhere (negative) Priorität 
gesetzt werden. Da RTOS aber 
dem Benutzer nicht gestattet, 
negative Zahlen als Prioritäts- 
parameter anzugeben, muß 'von 
Hand’ nachgeholfen werden. 
Aus der letzten Folge dieser Se- 
rie ist ersichtlich, daB beı Offset 
$10 und $IE im Task-Kopf die 
Priorität steht. Weiß man die 
Adresse einer Task, kann man 
also mit 
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scheiden. Durch Setzen der kor- 
respondierenden Bits der Inter- 
ruptmaske (siehe Teil 5 dieser 
Serie) kann bestimmt werden, 
welche Interrupts ausgelöst wer- 
den sollen. TRIGGER EV 
C0000000 würde beim ATARI 
also Maus- und Bildrücklaufin- 
terrupt simulieren. In meinem 
kleinen Simulationsprogramm 
für die ATARI-Maus wird die 
Bytefolge, wie sie von der Maus 
käme, in den dafür vorgesehe- 
nen. Buffer geschrieben und 
dann über den Kommando- 
Kanal XC. die TRIGGER- 
Anweisung ausgegeben. Zur Er- 
innerung: Zeichenketten, die in 
den Kommando-Kanal XC. ge- 
schrieben werden, haben die- 
selbe Wirkung, als würden sie 
über das Bedien-Interface ein- 
gegeben. Mit 


5 
MO2IAB- 002282 


MARK 
ATSK 
TASK 
TASı 
TASK 
TASı 
TASK 
ATS+ 
TASK 
TASı 
TASK 
Tas} 
TASK 
NDLE 
MDLE 
NDLE 
TASı 
EDTF 
EDTF 
FREE 
Mark 


“IDLE 

“ACIAL 
uRs232 
“MIDI 
"PFORT 
sEDFMN 
WERROR 
“VDATN 
WUSERO 
“USER 
“ICHMD 
“UHFY& 


Resident 
Resıdent 
Resident 
Fesıdent 
Resident 
Fesisent 
Resident 
Resident 
Resıdent 
Resident 
Resident 
Fesıdent 
FCONP 
ASSENM 
PRINT 
SETPRN 
EDFILE 
sı 


00600 

9 Alle Files sind wieder vorhanden. Um auch die eigene Verweiskette des 
Editor-Filemanagers zu restaurieren, wird eine neue Editor-Datei SI eröff- 
nel... 

om ERId 30 

ODOEAlIE: OO) CAlS 

OOBA2E: 1542 Q 

OOBATA 


In OOTE ÖOFFE 0056 
8 8040 0020 0000 
8740 FF49 0001 1E2A 465490 aCcaS 


....51.1 *FILE 


a5M BA1S+2O 0000 .AAlS 
oo 


Editor-Datei eingetragen 


«SM xxxx+ 10 FFFO 
*SM xxxx-+ IE FFFO 


einfach die Priorität auf einen 
negativen Wert (hier -I0h) set- 
zen und damit der Task höchste 
Priorität verleihen. 


Simulation 
von Interrupts 


Zum Schluß möchte ich noch 
eın Bonbon vorstellen, das 
RTOS-UH für den Programm- 
Ecker bietet. Mit dem Be- 
€ 


TRIGGER EV interruptmask 


lassen sich Hardware-Interrupts 
simulieren; dabei werden die zu- 
gehörigen interruptgesteuerten 
Programme aktiviert. Die Pro- 
gramme können nicht zwischen 
echten’ Hardware-Interrupts 
und diesen simulierten unter- 
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und ın deren Kopf der Verweis auf die Adresse der vorangehenden 


svowouszun- 


ALL I SEC RIGHT 


kann dann nach dem Laden eine 
gleichmäßige Mausbewegung 


/BUBEBSERREEEETRREREUERERERTERTRERERKTREUEEEBERERSTELTERETRTTETTERTRERE/ 


MAUS 
last updateı 


SIMULATION 
04.10.86 o8n15 


LITII IT ET 


7 


SYSTEnI 
2Cı ic =» 
MAUSı BU(OIOOOBEB) ->1 


/4 Kommando Kanal 
+3 Mausdaten 


PROBLENI 
SPC ıC DATION OUT ALPHIC CONTROLIALLIR 
SPC maus DATION our BASICı 


/HUSEURERRERRUEREREERERTERERRERERERERRRERSSRERETELETEREIERREEETEERERERE/ 


/UUUBIEEREREEEEBERERERERTERESERDERTRITRTRERERURESERERTETERERERERERERENE/ 
RIGHT: TASKI 

SEND "F8010000'B4 TO MAUSI 

PUT "TRIGGER EV 80000000’ TO XCı 
END} 


LEFTITASSI 

SEND "FBFFOOOO’B4 TO MAUS 

PUT "'TRIGGER EV 80000000' TO XCı 
END 


UPITASKI 

SEND 'FBOOFFOO'B4 TO MAUSı 

PUT "TRIGGER EV 80000000° TO XCı 
END: 


39 


35 

36 DOWN TASK 

37 SEND "FROOOLOO”B4 TO MAUSI 

Bi PUT "TRIGGER EV 80000000' TOD IC; 


39 ENDI 
{7} 
41 MODENDI 


Ein Programm simuliert die Maus. Der Hardware- 
Interrupt kann ebenfalls nachgebildet werden - sehr 
nützlich In der Erprobungsphase. ce 


nach rechts simuliert werden 
Bewegt man zusätzlich die 
Maus, so mischen sich "echte" 
und 'unechte‘ Interrupts. Die 
Simulation des Bildschirmrück- 
lauf-Interrupts ist von daher 
etwas schwieriger. da mit 
DISABLE EV 40000000 auch 


bunden wird. Hier kann man 
sıch helfen, indem man den ech- 
ten Interrupt enabled, und die 
Interrupt-Task ihn als erstes 
wieder disabled. Auf diese 
Weise wırd gezielt ein einzelner 
Interrupt ausgelöst. 


der simulierte Interrupt unter- 


Wir machen Musik 


Wenn auch das 
Musikmachen nicht zu 
den typischen Aufgaben 
eines Prozeßrechners 
gehört, so bietet ein 
Echtzeitbetriebssytem 
dennoch auch dafür gute 
Voraussetzungen. Es soll 
deshalb demonstriert 
werden, wie man unter . 
RTOS den Soundchip des 
Atari ST ansprechen 
kann. Dazu sind 
Hilfsroutinen in 
Assembler notwendig, die 
in diesem Beitrag 
vorgestellt werden. 
Danach biete ich 
denjenigen ST-Besitzern, 
die Dateien aus der TOS- 
in die RTOS-Welt 
übertragen wollen, einen 
Notbehelf an, der 
verwendet werden kann, 
solange unter RTOS das 
TOS-Diskettenformat 
noch nicht zur Verfügung 
steht. - 
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Sehr einfach hätte man den 
Soundchip des Atarı ST unter 
PEARL als Datenstation vom 
Typ BASIC ansprechen kön- 
nen. Doch leıder haben die Ent- 
wickler dafür gesorgt, daß der 
Zugriff nur im Supervisor- 
Modus des Prozessors stattfin- 
den kann. Man wollte wohl die 
unbefugte Benutzung verhin- 
dern, weil der Soundchip nicht 
nur für die Musik, sondern mit 
seinen beiden 8-Bit-Ports auch 
für die Steuerung des Disketten- 
laufwerks, den Druckerausgang 
sowie die RS-232-Schnittstelle 
zuständig ist 


Wenn man dennoch unter 
PEARL mit dem Soundchip 
Musik machen will, sind Assem- 
blerroutinen notwendig. An ih- 
rem Anfang steht der bereits aus 
Teil 4 bekannte Modulkopf (der 
Name SNDSBR ist aus 
SouNDSuBRoutines entstan- 
den). Es folgen die notwendigen 
Definitionen für die Benutzung 
des Hyperprozessors und der 
Betriebssystem-Traps. Den 


Prozeduren, die Workspace be- 
nötigen, ist die jeweilige Work- 
space-Definition direkt voran- 
gestellt. 


FREQA dient nun dazu, die 
Frequenz und damit die Ton- 
höhe am Analogausgang A des 
Soundchips einzustellen. Dazu 
wird als Parameter ein 
FIXED(15)-Wert übergeben, 
von dem allerdings nur die un- 
teren 12 Bit die Frequenz be- 
stimmen. De facto bezieht sich 
der übergebene Wert auf die 
Periodendauer des Signals: Je 
kleiner er ıst, desto höher der 
erzeugte Ton. Nach der Work- 
space-Anforderung durch 
ENTR wird mit INVW der Pa- 
rameter übergeben. Mit EPAR 
wird schließlich die Parameter- 
übergabe abgeschlossen und der 
Hyperprozessor ausgeschaltet. 


OFF steht als Mnemonic für 
den Trap 15, mit dem das Be- 
triebssystem aufgefordert wırd, 
alle Interrupts zu unterbinden 
und in den Supervisor-Modus 
zu wechseln. Dies ist aufgrund 
der Architektur des Soundchips 
unbedingt notwendig. Seine 16 
Register werden nämlich über 
nur zwei Adressen angespro- 
chen. Dazu schreibt man aufdie 
eine Adresse die gewünschte 
Registernummer und aufdiean- 
dere die zugehörigen Daten 
(Zeile 33/34 und 35/36). Sollein 
Register gelesen werden, so er- 
folgt dies stets über ein und die- 
selbe Adresse (Zeile 59/60). Bei 
dieser Zugriffsmethode kann 
man aber das Pech haben, daß 
ein Interrupt dazwischenkommt 
und daß in der Interruptroutine 
eine andere Registernummer 
eingeschrieben wird. Das Kom- 
mando OFF sorgt dafür, daß 
diesbezüglich nichts mehr zu 
befürchten ist. 

Nach dem Einschreiben der 
Frequenz wird dann in Zeile 37 
das Supervisorbit im Statusre- 
gister zurückgesetzt, und die 
Prozedur gibt mit RETN ihren 
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Die Assemblerroutinen 
sind erforderlich, um den 
Soundchip des Atari ST 
Suproutines for sound chin access im Supervisor-Modus 
ae ES SEE ER ansprechen zu können. 


BERELIRERETEKRRTERERERTEEREN [LLLILIEIIIEITE 
#or loader 


7 OL 
3 OO OLE 


En 102 
10 mc SIAESASTEIST 


10 00 
» 0 
OO 


FEFFEROD 
FerFaSOD 


OFd.v 
ord.v 
or0.V 


.B e0,PSGa 


»B PAROsL.E,PSGD 


EB "1,PSGA 


nove. 
AD! 
KEIN 


procedure worksp. 


«ter FLIEDIIT) dy vw 
ena 04 parameter 
procedure entry 
return #roa procedure 
en dispaten “ 
anısaraneı 


sound chip reg 8 
dch 


ger 
get bar by 

end of parameter 
to supervisor mode 
select register © 
"rite lom byte 


select register I 


write high byte 

allow interrupts 

turn to caller 
LLLEEEIEIZI III 


e definitions 


Workspace zurück. Auf die- 
selbe Weise kann mit VOLA die 
Lautstärke eingestellt werden. 
Da nur die letzten 4 Bit die Laut- 
stärke bestimmen, wird von 
dem übergebenen Parameter 
nur die untere Hälfte in den 
Soundchip geschrieben. 


Wenn sichergestellt wäre, daß 
nur eine Task die beiden Proze- 
duren anspricht, hätte eine 
Workspace-Definition gereicht. 
Durch die doppelte Workspace- 
Definition sind die Prozeduren 
aber vollkommen unabhängig 
und ‘reentrant'; es könnten also 
beliebig viele Tasks am Sound 
"mitmischen". 

Etwas anders sehen die Proze- 


Pam EU ° 
wsıı  EDU PARIeD 
IPIRIERTERBERERTRRRRRRRRRUTEN 


#or parameter of vOLa 8 


duren AON und AOFF zum 
An- und Abschalten des Ana- 


CORE. 
107 
120 

“Lar 
IIFCOODBFFER 
wu 
1EDMOIFFFF 
sur 
O2ICOBEF 
“EC 


09] 
“car 
IIFCGOOTFFFF 
12077 


10) FFFEBN 
OBERE 
ITCHEFFFEBOT 
MNNTCDERF 
ERBEN? 


NOLA ENTR WSZL.L 
Dem PAR. 
ErAR 
or 


mMOVE.b -H,PSGA 


mOvE.B PüRi»1.1,PS6D 


ANDI =SDBRF,SR 
BETN 


smitch a 


get workspace 

get par by 

end of par 

to supervisor aode 


select register 8 


write volume data 
allow interrupts 
return to <aller 


BERHERERERERERTRTERERERTERETERRERRRRERERRTRRERTURUNE 
109 output A on ’ 
IRRERRRREERERETEEERRRET EEK EERERERTEERREERTRUREREN 
veOn vo 


hyperprocessor oft 
to supervisor node 


select register 7 
get control register 
switch A on 

save control register 
allow interrupts 
return to caller 


logausgangs A aus, da siekeinen 
Workspace brauchen. Deshalb 
können sie gleich mit dem Aus- 
schalten des Hyperprozessors 
beginnen. AO zeigt beim Aufruf 
auf den Anfang der Parameter- 
liste auf Aufruferseite. Da bei 
leerer Parameterliste dort nur 
ein EPAR steht und auch kein 
Workspace zurückzugeben ist, 
kann der Rücksprung in Zeile 
64 beziehungsweise 75 auf die 
übernächste Adresse erfolgen. 


VERIRRERRERERUTRUTRRERTRRR RER EETERRERRRERERIERREREE 

witen analog wutput A o4t [1 

7 OR VERBKEEEEETERERERERERRERERTRRTRE RE RRERRRTERERR EHER 
2 ee > wor vo Nyperproc or 04 
car orf to supervisor modı 

70 RR EELWIERFE Zr a 

[27 MOvE.b *7,PSGA ° 

I RE LOISERFFEB MOvE.E Pam, Do a 

TI WERE Lee BET 0,0 & 

rn na LICHEFFFEBOD mOE.B DO,PSGD save control register 4 

4 GN UZICDERF ANDI =SDEFF,SE allom interrupts ‘ 

. 

Li 

U 


ERS 


WO-Fehler? 
Kein Problem! 


Das zugehörige Demonstra- 
tionsprogramm in PEARL stellt 
eine Einbau-Funktion vor, mit 
deren Hilfe der Programmierer 
den Status der Datenstationen 
abfragen und auf Besonderhei- 


select register 7 
get control register 
Amiten A nf 


73 Wi KEEBEEEIZ me 2a) return to caller 


6 Ce BEREERRRERERRRRRERRERRRERERRERRERERERTERTERERERRERE 
77 ALL END or Jyor 
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sansananıı 


nusıc ® 
ei 


System 
Alı 
DaTaı ED. DUMmrnAnE (NEN: 


DATION INOUT ALPMIC CONTROL IALLIG 


DATION In 
ENTRY GLOBAL: 
ENTRY GLOBAL, 
ENTEY GLOBAL: 
ENTRY GLOBALL 
"SEC Inv DUR InIT 


2 7000 misir name 
/8 Wir machen Musik, da geht 


LLITTT 
musinTasıı 
Da NA Omi: 
DCL FREO FiıED: ’. 
DKL vaLmE FlıED: ’ 
DAL TIME FIIED 


PUT "Music by RTOS’ T0 AI B 


ALPMIC CONTROL (ALLIE 


ELLLITTITTG 


dir der Hut hoch ... 


frequency 8/ 
volume 8/ 
duration of! tone 8/ 


YSKIP,Ar 


mut " TO AI BY SIP,Ar 


ut ‚, mar vr (m 
GET NAME FROM Al BY SKIP,Ar 


OPEN DATA BY IDF (maREI 
CALL REWIND (DATA 


IPA /t get data file naee 


/# open data file 


GET FFEO,VOLLME,TIME FROM DATA Br SKIP, (DIFIBI: 


TALı Rom 

MILE STIDATA) ED O0 REPEAT 
CL FREDAIFFEON: 
CALL VOLACVOLLMEI: 
SFETER TIrE 8 MSEC BESUME: 


/t switch analog output on 

#8 repeat until end of data file 
’ freauency 

/4 set volume 

/8 wait 


GET FRED,vOLLME,TIrE FROM DATA Br SKIP, IDIFIBIL 


end; 

PUT "sorry. 

CALL AOFFi 
vu 04 rası msi m 


ı8"'s done . 


UNTIRUSIH 
PROCEINBES: 
(ESFIROFF 


1ESFIVOLA 


" TO AI BY (DSIP,A,SIPL 


78 smitch analog output off 


(ESRIFREOA 


Das Demoprogramm spielt eine kleine Melodie ab. 


ten reagieren kann. ‘ST (dation- 
name)’ heißt diese Funktion, die 
einen FIXED(15)-Wert liefert. 
Ist dieser Wert 0, so ist alles in 
Ordnung. Wird aber zum Beı- 
spiel eine | zurückgegeben, so 
ist ein File zu Ende, und es 
konnten keıne Daten mehr ge- 
lesen werden. Die ausführliche 
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Auflistung der Rückgabewerte 
findet sich ın dem RTOS- 
Handbuch im Abschnitt C-IIl. 
In meinem Beispielprogramm 
benutze ich die Funktion, um 
das Ende der Eingabedatei zu 
erkennen. MUSIK erwartet eın 
ED-File, in dem FIXED-Werte 
stehen. Jeweils drei werden 


Statt Noten: Datenliste 
einer bekannten Melodie. 
In den drei Spalten stehen 
Tonhöhe, Lautstärke und 
Tonlänge. 


dann als Frequenz, Lautstärke 
und Dauer eines Tones interpre- 
tiert. Dank der Endeerkennung 
durch die ST-Funktion unter- 
liegt die Eingabedatei keiner 
Längenbeschränkung (außer 
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durch die Größe des verfügba- 
ren Speichers). 


Trotz Statusabfrage werden 
aber bei I/O-Fehlern zusätzlich 
Fehlermeldungen ausgegeben. 
Dies kann man verhindern, in- 
dem man für die Datenstation 
im SYSTEM-Teil ‘NE’ (no er- 
ror message) definiert (Zeile 12). 


Ein kleiner Trick vereinfacht die 
Angabe der Zeitdauer: Ich defi- 
niere in Zeile 21 eine Zeitdauer- 
konstante von einer Millise- 
kunde, die dann mit FIXED- 
Werten multipliziert werden 
kann (Zeile 47). Dadurch er- 
scheinen die FIXED-Werte wie 
Zeitdauerangaben in Millise- 
kunden. 


Der Tonhöhenwert bezieht sich, 
wıe schon erwähnt, nicht auf die 
Frequenz, sondern auf die Pe- 
riodendauer des Tonsignals, 
also auf den Kehrwert der Fre- 
quenz. Aus dem Physıkunter- 
richt ist Ihnen gewiß noch die 
Regel geläufig, wonach die Ton- 
höhe sich um einen Halbton 
nach oben ändert, wenn der 
Wert der Frequenz mit der 
I2ten Wurzel aus 2 multipliziert 
wird. In unserem Fall ist der 
Kehrwert dieses Faktors zu ver- 
wenden. Durch wiederholtes 
Multiplizieren lassen sich somit 
alle Intervalle berechnen. Zwei 
Töne gleicher Tonhöhe kann 
man gegeneinander abgrenzen, 
indem man den ersten Ton teilt 
und den zweiten, kürzeren Teil 
etwas leiser erklingen läßt. 


Übrigens: natürlich läuft die 
Musık weiter, auch wenn man 
im Editor arbeitet oder den 
Compiler startet. Dazu muß nur 
die Task MUSIK mit hinrei- 
chend hoher Priorität aufgeru- 
fen werden. etwa mit 


MUSIK PRIO I 

Dann stört auch die Ausgabe 
eines Listings nicht. Nur Sy- 
Stemausgaben mit noch höherer 


Priorität durch Kommandos 
wie S oder L würden die Musik 
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auf einem Ton stehenbleiben 
lassen, bis der Bildschirm wie- 
der zur Ruhe gekommen ist. 
Aber wen interessiert schon der 
Systemstatus, wenn dadurch so 
wunderschöne Musik unterbro- 
chen würde ... 


Nachtrag zu Teil 6 


Obwohl es auf den ersten Blick 
so aussehen mag, ist die Assem- 
bler-Prozedur ALLOC nicht 
wiedereintrittsfähig. In der Mo- 
dulvariablen MEMBLK kann 
nämlich immer nur die Adresse 
eines Speicherblockes stehen. 
Außerdem könnte ein erster 
Speicherblock nıcht mehr ange- 
sprochen werden, wenn ein 
zweiter angefordert wird und 
damit die Feldköpfe von DA- 
TEI und ORDER Verweise auf 
den zweiten Speicherblock ent- 
halten. In dem abgedruckten 
Programm ist dieses Verhalten 
unkritisch, da in dem Haupt- 
programm ALLOC nicht zwei- 
mal aufgerufen wird, ohne daß 
zwischendurch mit FREE der 
Speicher wieder freigegeben 
würde. 


Benchmarks 
unter RTOS 


Beste Voraussetzungen zur 
Dokumentation der eigenen 
Leistungsfähigkeit bringt 
RTOS durch seine Echtzeit- 
fähigkeit mit sich. Mittels 
der Systemuhr und der Da- 
tentypen Uhrzeit und Zeit- 
dauer ist es sehr einfach 
möglich, die Rechenzeit be- 
liebiger Operationen zu er- 
mitteln. Soll die Rechenzeit 
für Programmteile ermittelt 
werden, läßt sich dies mittels 
des abgedruckten Pro- 
grammrumpfes erreichen, 
indem der Programmteil in- 
nerhalb der REPEAT- 


Schleifen eingesetzt wird. 


Natürlich müssen nicht 
1000 x 1000 Schleifen 
durchlaufen werden. Auf je- 
den Fall ist aber die Zeit für 
die Schleifen ‘leer’ nachzu- 
messen, um diesen Wert ab- 
ziehen zu können. In der ab- 
gedruckten Form läuft das 
Programm etwa 7,5 Sekun- 
den, woraus sich 7,5 Mikro- 
sekunden für jeden Schlei- 
fendurchlauf ergeben. Be- 
denkt man, daß während- 
dessen etwa 1900mal ein Ti- 
mer zum Weiterstellen der 
Systemuhr aufgefordert hat, 
so zeugt dies von schnellem 
Code. 


Will man die Rechenzeit ei- 
ner Task bestimmen, 
braucht man nur eine zweite 
Task mit niedrigerer Priori- 
tät zu schreiben, die die Uhr- 
zeit abliest, die erste Task 
aktiviert und ein zweites Mal 
die Uhrzeit abliest. Dies 
funktioniert natürlich nicht 
mehr, wenn die erste Task 
irgendwelche Wartezu- 
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PWELTTTTTTLILTTTT ÜLLLLLELLLELELELETETTTELTETETETTTTTTELTLILTTITT TR 

in 

I’ BENCHMARK TEST 

“1 last updateı 27.07.86 1830 

sr 

PBOTTLTTTLLLLTLLLELELTIELTLELTITILLELELTETTETETELELLETETEITTIEIE TI IT 
52001 


PROBLEM: 
SPC me DATION IN ao; 
SPC Al DATION INOUT ALPHIC CONTFOL (ALL) 


TESTI TASK 
BeL (11,721 CLOCKı 
DCL DAUER  DuRı 


PUT "ACHTUNG: Benchmark Test '" TO Al BY SIP,A.IP: 
READ TI FROM URL 
TO 1000 REPEAT 

TO 1000 PEPEATI 

IR anything to measure Bi 


pur T1,T2, To a 
BY (DH IK, TA2,D,DD,SEIP, 0122,71 ,56 Fr 


© ERRORS. SIIELIEOOOIGE 


stände hat und die zweite eine Zeitmessung ohnehin 
wıeder zum Laufen kommt, keine Aussage über die Lauf- 
bevor dıe erste fertig ist zeit einer Task. 

Aber ın diesem Fall macht 


Programme in Eproms 


In der c't-Ausgabe 2/86 Entwicklungssysteme 
wurde mit dem bieten sich dabei 
EPAC-68008 ein weiterer natürlich ‘“ausgewachsene’ 
Einplatinen-Computer RTOS/PEARL-Rechner 
vorgestellt, der sich für wie der c't 68000 oder 
Steuerungs- und der Atari ST an. 


Regelungsaufgaben gut 
eignen dürfte. Dies gilt 
vor allem deshalb, weil 


dem Winzling ein Das Werkzeug, das der Pro- 
komplettes grammierer benötigt, um 

PEARL-Programme für den 
BIO neklehenyaaın EPAC-68008 oder zur Erweite- 
zur Verlügung stehl, so rung des eigenen Systems in 
daß er in PEARL EPROMS unterzubringen, steht 
programmiert werden deshalb im Mittelpunkt dieses 
kann. Als komfortable Kapitels. Es handelt sich um 
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den Befehl ‘'PROM', der im 
Handbuch beschrieben wird, 
bisher als Shell-Erweiterung 
verfügbar war und künftig zum 
Standard-Lieferumfang gehört. 
RTOS stellt mit diesem Befehl 
ein Mittel zur Verfügung, 
PEARL-Programme für das 
Einbrennen in EPROMSs vorzu- 
bereiten. Außerdem werden die 
Kern-Routinen zur Steuerung 
des PROMMER 520 unter 
RTOS vorgestellt. 


Um zu erklären, wie der 
PROM-Befehl arbeitet, mußich 
etwas weiter ausholen: Im Ab- 
schnitt E-VII des Handbuchs, 
aber auch sonst ab und zu, 
taucht in Verbindung mit RTOS 
der Begriff ‘Scheibe’ oder 
‘Scheibenstruktur' auf. Dies 
deutet bereits darauf hin, daß 
RTOS nicht 'auseinem Guß' ist, 
sondern aus vielen Einzelteilen 
besteht. Diese Einzelteile liegen 
bei ausgeschaltetem Rechner 
ziemlich beziehungslos neben- 
einander im Speicher. Erst mit 
dem Einschalten und dem Auf- 
ruf des sogenannten ‘Nukleus’ 
(Kern) bekommen sie Verbin- 
dung. Dazu muß der Nukleus 
natürlich die einzelnen Teile fin- 
den können. Als Kennung für 
den Nukleus hat deshalb jede 
Scheibe eine Signalmarke, die 
mit SAEBI, $BF95 beginnt. An 
diesen vier Bytes erkennt der 
Nukleus, daß dort ein Betriebs- 
systemteil liegt 


Die nächsten beiden Bytes ge- 
ben dann Auskunft darüber, 
welcher Art die gefundene 
Scheibe ist. Diese beiden Bytes 
berechnen sich nach der Formel 
(x * 2 + 1) * 37, wobei x dıe 
Nummer der Scheibe ist.x = | 
etwa kennzeichnet Scheiben, die 
Systemtasks enthalten, x = 9 
steht für Scheiben, die Daten- 
stationen definieren, und so wei- 
ter. Der Nukleus merkt sich in 
Tabellen, wo er die einzelnen 
Scheiben gefunden hat; über die 
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Tabellen sind die einzelnen 
Scheiben nun verbunden. 
Durch diesen Aufbau ıst es re- 
latıv einfach, zum Beispiel neue 
Datenstationen oder neue 
Shell-Kommandos, wie etwa 
den PROM-Befehl. anzufügen 


Hinter der Nummer 13 verbirgt 
sich nun eine Scheibe, die 
Blöcke für Modulvariable defi- 
niert. Dies sind Speicherberei- 
che, die bei der Initialisierung 
des Systems an einer festen 
Stelle im Speicher eingerichtet 
werden, um gemeinsame Varia- 
ble von ROM- oder EPROM- 
residenten Tasks aufzunehmen. 


Allerdings müssen diese Spei- 
cherbereiche nicht zwingend 
Variable enthalten. In meinem 
Beispiel enthalten sie ein Modul 
und eine Task. 


Dieses Modul mit seiner Task 
wird bei der Initialisierung mit 
dem beschriebenen Mechanis- 
mus im Speicher eingerichtet. 
Die Task läuft gleich nach der 
Initalisierung an. das heißt. na- 
türlich erst nach den anderen 
Autostart-Tasks im System, die 
eine höhere Priorität haben. Zur 
Autostart-Task wurde die Task 
durch den Befehl AUTO- 
START. der sich mit dem 
PROM-Befehl gemeinsam in 
der Shell-Erweiterung befindet 
Um das Modul mit der Task 
‘brennbar’ zu machen, ist es 
ganz normal in den Speicher zu 
laden. Dabei sollte man aller- 
dings schon darauf achten, wo 
es zu liegen kommt, denn an ge- 
nau dieselbe Stelle wird es bei 
der Initialisierung auch wieder 
hingelegt. Für dieses Beispiel ist 
die AdreBlage allerdings un- 
wichtig, da gleich als zweiter 
Befehl an den Kommandopro- 
zessor das Entladen des eigenen 
Moduls angeordnet wırd. Des- 
halb ist auch von Modul und 
Task nichts mehr zu spüren, 
wenn das System hochgefahren 
ist, 
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Danach gibt man den Befehl 
PROM und eine Liste von 
Tasks und/oder Modulen an, 
die in ‘|3er Scheiben’ umgewan- 
delt werden sollen. Da der 
PROM-Befehl in die Standard- 
ausgabe des Bedien-Interface 
schreibt, ist diese mit dem 
O-Befehl in ein File oder direkt 
zu dem EPROM-Programmier- 
gerät umzuleiten. Wird hinter 
einem Modulnamen ein ‘#*' ein- 
gegeben, so werden alle Tasks, 
die direkt im Anschluß an dieses 
Modul stehen, auch in ‘l3er 
Scheiben’ umgewandelt. Wıe 
die Scheiben später im EPROM 
aussehen, ıst aus dem abge- 
druckten Speicherauszug zu er- 
schen 


Für Nachahmer noch ein paar 
Hinweise: der PROM-Befehl 
schickt vor der ersten Zeile des 
S-Records noch einige Nullen, 
um EPROMMER, die kein 
Handshake haben. nicht zu 
überrennen. Sollte ein Gerät 
diese Nullen nicht mögen. las- 
sen sie sıch leicht mit dem Editor 
entfernen (vorausgesetzt, man 
hat die Ausgabe in ein ED-File 
umgelenkt). 


Die abgedruckte Autostart- 
Task dient lediglich zur Demon- 
stration. Besitzer der neuesten 


EPROM-Version für den Atari 
ST (Version 1.1) finden bereits 
eıne gleichartige Autostart- 
Möglichkeit vor. Bei der Boot- 
Diskette (Version C) ist diese 
allerdings nicht implementiert. 
Sie wäre wegen der unterschied- 
lichen Diskettenformate unter 
TOS und RTOS nicht sınnvoll 
zu nutzen. 


Durch die Task AUTO wird nur 
eın einziger Befehl (außer dem 
zum Entladen des eıgenen Mo- 
duls)an den Kommandoprozes- 
sor abgesetzt, nämlıch der. den 
Inhalt des Files INIT im Lauf- 
werk FO. in den Kommandoka- 
nal zu kopieren. Damit ist man 
nun sehr flexibel. da das File 
INIT beliebige Befehle enthal- 
ten kann 


EPROMSs brennen 
unter RTOS 


Als Beispiel für eine Interrupt- 
routine unter RTOS beschreibe 


Das kleine 
Beispielprogramm 
etabliert eine 
Autostart-Möglichkeit. 


/RREREIERTRRUTIRERERETDRRTERERETRERTETERERSKRRSETERERTREKEURKRLERRUENE/ 
[72 


A# AUTOEXEC TASK 


2 


tuer 
/8 last updateı 21.10.86 11n30 


RTOS 


/HUEEEREREREEREREETRRERBERKERTRRKRERKRERKEREREKERERERBRERBIERERERRCHmE/ 
/4 to spare memory #/ 


MODULE AUTO; 
5.4 


SYSTEM 


xC /a command channel #/ 


PROBLENI 


SPC ıC DATION OUT ALPHIC CONTROL (ALLII 


/008 AUTO SESSERIERERERBEELERSETEERERERERSERERERERESEREREERERERERRIEN 


7 


v 
[7 


/k copy commands from file FO.INIT to command channel 


’ 


AUTO: TASK 


PUT 'COPY FO.INIT>XC.* TO ıC BY Aı 
PUT "UNLOAD AUTOS” TO XC BY Ai 


24 ENDI 
25 MODENDI 


#4 unload itself #/ 
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ich nun eine Prozedur zum 
Brennen von EPROMs mit dem 
PROMMER 520 aus c't 7/86. 
Das Besondere an dieser Proze- 
dur ıst, daß sie die verbleibende 
Rechenleistung des ATARI voll 
dem Nutzer zur Verfügung 
stellt. 


Das Beispiel bezieht sich auf die 
Programmierung des 
EPROM-Typs 27256. Dieser 
Typ wird für die ST-EPROM- 
Bank und den ST-Userport (c't 
3/86) verwendet. Wegen der un- 
terschiedlichen Pinbelegung 
muß deshalb die Software ange- 
paßt werden, wenn ein anderer 
EPROM-Typ verwendet wird 
Dem Programmieralgorithmus 
liegt das Datenblatt des 27256 
von Intel zugrunde. Dieser un- 
terscheidet sich aber nur in der 
Berechnung der Nachbrenn- 
dauer und der Detektierung ei- 
nes ‘device fail’ geringfügig von 
denen anderer Hersteller und 
wurde willkürlich gewählt. 


Da der PROMMER 52% keine 
eigene Intelligenz (sprich: Mı- 
kroprozessor) besitzt, muß die 
gesamte Steuerung über den 
Hauptprozessor laufen. Dies 
wird erschwert durch den Um- 
stand. daß nur jeweils ein 
16-Bit-Eingabe- und 16-Bit- 
Ausgabeport vorhanden sind 
So müssen das zu programmie- 
rende Datum, die Adresse und 
die Steuersignale nacheinander 
in Latches geschrieben werden. 
Der PROMMER besitzt ein 
Steuerregister, das durch das 
Latch 74L$273 realisiert ist. In 
dieses Register wird geschrie- 


Steuerregisters kann nicht gele- 
sen werden. Nur die Bits 5, 6 
und 7 können über das Status- 
register des Userports 
($FAFFFF) abgefragt werden. 
Deshalb sollte man sich ir- 
gendwo eine Kopie des Regi- 
sterinhalts ablegen. Die Bedeu- 
tung der einzelnen Bits ist im 
Kasten näher erläutert 


Bit Bedeutung 


Enable für Latch-Ausgänge 
Vpp an Pin I 
Vpp an Pin 22 


Vec (5 V) an Pin 28 
OE (Pin 22) 

Vpp 12,5 V/21 V 
Vec (5 V) an Pin 26 
Vcc (6 V) an Pin 28 


Saw Rkwun-o 


Bit 0 ist direkt mit dem Enable- 
Eingang des Latches 74LS374 
mit Tri-State-Ausgängen ver- 
bunden. Da dieser Eingang in- 
vertiert, bewirkt eine '|' in die- 
sem Bit, daß die Ausgänge des 
Latches hochohmig sind. Dies 
ist erforderlich. wenn man Da- 
ten aus einem EPROM im Pro- 
grammiersockel lesen will. 


Eine ‘1’ in Bit | schaltet die ge- 
wählte Programmierspannung 
auf Pin | des Programmier- 
sockels. Dort wird sie bei 28po- 
ligen EPROMs benötigt. Mit 
Bit 2 kann die Programmier- 
spannung an Pin 22 gelegt wer- 
den, wie es für 24polige 
EPROMSs notwendig ist. Esdarf 


sDm FEBOSO 120 


aus verständlichen Gründen im- 
mer nur eines dieser beiden Bits 
1" sein. Die Auswahl der Pro- 
grammierspannung geschieht 
mit Bit 5. Dabei schaltet eine ‘0° 
auf 21V und eine ‘I’ auf 12,5V. 


Bit 3 und Bit 7 bilden ebenfalls 
ein sich ausschließendes Paar. 
Mit Bit 3 wird die Versorgungs- 
spannung an Pin 28 für 28polıge 
EPROMsauf SV gesetzt, mit Bit 
7 auf 6V. Für 24polige 
EPROMs wird mit Bit 6 eine 
Versorgungsspannung von SV 
auf Pin 26 geschaltet. 


Bit 4 schließlich stellt den OE- 
Eingang (Output Enable) für 
28polige EPROMSs dar. Hierbei 
ist wieder zu beachten, daß die- 
ser Eingang invertiert. 


In das schon erwähnte Daten- 
Latch wird genau wie in das 
Steuerregister geschrieben - mit 
dem Unterschied, daß hier das 
LATCHIN-Signal (SFAFFF6) 
zur Übernahme verwendet 
wird. 


So sieht die 
Autostart-Scheibe Im 
EPROM aus. 


MO OH VO OO GOLD MI2O ZORO 2020». 
AEBI BF9S 03E7 0007 0000 0007 OO22 ALal 
“4141 4141 0007 0000 0000 O00D 0010 4135 
Saar 2020 0007 0014 A081 0900 0000 0080 


WR SaR3 FEFE RO 0000 FFEF FFFF FFFFO.. 
FFFF FFFF FFFF FEFR OFFER ORERR OFFER OFFER 
0 OOO OO OO OHIO AL2O 2020 2020 
MEBI BFYS 03E7 0007 0022 0007 OODO All 
4141 4141 0007 GO2A 0000 0007 0041 4155 
SA4F 2020 0030 0000 OOFE 0007 0040 0006 
03 0030 0007 ON&L 0007 VOL OO DO» 
AFEC 0080 424C 0080 A2AC 00R2 M2AC 009E 
A2aD FFFC 2C78 OBCA 4EAE 18728 0000 FFBA 
000C. 7120 0010 0028 6FBO 0008 2D80 0030 
2800 4E4E 1828 0000 FF7O OOOC 7120 000C 
FB81701 0020 6F80 0008 2DEO 0016 2B00 AEAI AJAF .. 
FBB1BO: 3099 2046 ZOZE AI4E 4934 JESB AI2E FFFF PY 
FBBL90: SS4E ACAF 4144 2041 3354 Ar2A 0000 0000 LNLOAD. AUTOR 
FEBImı FFFFFFFFFFFFOFFFFOFFEFOFFEEOFEEROFFER 


ben, ındem das gewünschte Byte 
auf die untere Hälfte des Aus- 
gabeports gegeben wırd. Mit eı- 
nem Taktimpuls, wıe er für se- 
nelle Erweiterungen des User- 
ports vorgesehen ist, wird dieser 
Wert in das Steuerregister über- 
nommen. Dabei ist es egal, ob 
ein ‘0'-Impuls (SFAFFFE) oder 
ein ‘]'-Impuls (SFAFFFD) ver- 
wendet wird. Der Inhalt des 
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Für die Adreßleitungen am 
EPROM gibt es kein Latch, da- 
her müssen die Adressen zuletzt 
angelegt werden. Auch dies ge- 
schieht durch Schreiben in den 
Ausgabeport. Im Gegensatz zu 
den beiden Latches werden hier 
aber alle 16 Bit benutzt, wäh- 
tend vorher die oberen 8 Bit 
ohne Bedeutung waren. Bit 15 
der Adresse verdient dabei be- 
sondere Beachtung. Es ist auf 


/UURRESIEURBEREEERERUERN 
Eproms lesen in PEML 


last updateı 01.12.86 


BU02031- 1 Au port output 87 
BULOIFBEFFSIC-E 78 woltmare renet #/ 
BOIOLFREFFOIG-E /8 Daten in 8/ 
BUIOIFREFFTI CH, ten out 8/ 
BULOZFREFFOIG- input sort #/ 
BULODFRFFFAI =, input laten 87 


Pin I des Programmiersockels 
geführt, an dem bei 28poligen 
EPROMs auch die Program- 
mierspannung anliegt. Soll aber 
nicht programmiert, sondern 
nur aus dem EPROM gelesen 
werden, so muß hier eine '1" ste- 
hen. Beim Lesen verlangen die 
EPROMs am Vpp-Pin die Ver- 
sorgungsspannung. Durch ei- 
nen Pull-Down-Widerstand 
geht Pin | bei anliegender ‘0’ auf 
0V. 


Bleibt noch der CS-Eingang 
(Chip Select) an Pin 20. Dieser 
wird über die Handshake-Lei- 
tungen RBUSY und 
RSTROBE des Userports be- 
dient. Da die RSTROBE-Lei- 
tung als Eingang nicht direkt 
zugänglich ist, ıst der LAT- 
CHOUT-Ausgang (SFAFFF?) 
mit ihr verbunden. Nach einen 
LATCHOUT-Puls geht somit 
die CS-Leitung auf '0'. Durch 
Lesen des Eingangsport-Lat- 
ches kann das Select-Signal zu- 
rückgesetzt werden. 


BULOIFRFFFDIC-) /R eloc# for wersal 170 87 
BULOLFRFFFEIC=, u port wtatun 1/ 


DATION Basıcı 
Darıom Basıcı 
DATION Bslch 
Darıon Basıcı 
DATION BasIcı 
DATION Bas1cı 
DATION Böll 
barton Basıcı 


B 333332338 


BIrea)E 


Datıon ALPMIC CONTROL ILL) 


In Eorommer control register W/ 


HEADBYTE: PROC (ADA BITeIE)) RETIENG (BITIBHN 


DCL Due BIT«B: 
DEL BITE BITCSMN 


Apr = ADR OR "BD" Bd 

ECTRL = ECTRL AND "FFER"BAL 

SEND ECTFL TO Four 

TArE DUMY FROM 10CıKı 

SEND ADR TO FOUTI 

TArE Duremt FROM LOUT: 

TEE BYTE FROM PIMLı 

ECTRL = ECTRL OR "010" Bar 

SEND ECTRL TO FOuTı 

TArE Dur FROM 10CLH 4 

BETLENIBYTE SHIFT Br 
END: / RERDETTEIPROC 87 


! 
TESTITASıE 
DL Due BIT: 
DeL EYTE BITIBI, 
DCL ADR BITilelı 
ECT = "O1" Bd 
SEND ECTRL TO Foufi 
TarE Due FROM 10CLH 1 


ECTFL = E00" Br 


In pin ito ww 
’# OE low 87 


+8 ICE low 
I reas dyte, /CE nıgn 8 
vn VOR High a7 


/# woftware reset 8/ 


48 pin 1,28 10 WW 


Userport Fur zasarı © T0Al br Sir «u sata laten dinanles #/ 
unter PEARL Pur aba. = TO AI Br DEIN BAIH,A; 


Den Userport und somit auch 
den PROMMER kann der Pro- 
grammierer auch von PEARL 
aus leicht ansprechen. Als Da- 
tenstationstyp "BASIC" spezifi- 
ziert (nıcht zu verwechseln mit 
einer verbreiteten Program- 
miersprache), lassen sich alle 
Register des Userports lesen. 
Für die Ausgabe wird ein spe- 
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10 16 REPEAT 
BYTE = READBYTE(ADEI: 


PUT BITE," " TO AI Br BaıZı,Aı 
ADR = TOBIT<TOFLIEDIADK) » 1lı 


End; 

ECTRL = "00014 

SEND ECTRL TO Poutı 

TAxE Dumeiv FROM 10CLKı 
END 78 TESTI Tas0ı W/ 


zaanasanaınaa 
#4 tank tor 
DALLELTIITEITT 
RESET: TASK 

DAL Dummy BIT: 


du pin 1,20 row n/ 
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” ECT = "0001" Br 

oe SEND ECTRL TO PouTı 
22 Ten Duserr FROM 10CLKı 
“ 001 +0 RESET: Tas 07 
E21 

7 


v3 MODEND; 


Das Auslesen eines 
EPROMs mit dem 
PROMMER 520 läuft 
vollständig unter 
PEARL ab. 


zıelles Konstrukt benötigt. da 
diese ja über einen Lesebefehl 
geschehen muß. Darum muß 
sich aber der Programmierer 
nicht weiter kümmern, denn 
dieses Konstrukt wırd selbstän- 
dig vom Compiler erstellt. Der 
Ausgabeport, wie er mit Zeile I 1 
eingebunden ist. verhält sıch 
also ganz normal 


Bei den Registern des Userports 
muß zwischen Byte- und Wort- 
zugriffen unterschieden werden 
Dazu dienen dıe ersten beiden 
Ziffern ın der Klammer (Zeilen 
12 bis 18). Steht dort ‘O1’, so 
wird byteweise, bei ‘02° wort- 
weise gelesen. 


Als Beispiel soll eine Prozedur 
dienen, mit der der Inhalt eines 
EPROMs im Programmier- 
sockel ausgelesen werden kann. 
Für viele etwas gewöhnungsbe- 
dürftig dürfte der Umgang mit 
Bitfeldern ın PEARL sein. In 
PEARL wird links mit I begin- 
nend gezählt. Außerdem wer- 
den Bitfelder linksbündig abge- 
legt. Ein Bitfeld BIT(7) mit dem 
Inhalt "100101 1’B liegt ım Spei- 
cherwort als '9600'B4. Mit TO- 
FIXED wird dann daraus der 
FIXED(15)-Wert -27136. 


Doch nun zu dem Beispielpro- 
gramm. Die Task TEST initia- 
lisiert als erstes den PROM- 
MER. Der Reset-Befehl für den 
Userport (SFAFFFS) ist hierfür 
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48 pin 1.20 to war 


nicht so gut geeignet. da er zwar 
auch alle Spannungen zurück- 
setzt. die Ausgänge des Daten- 
Latches aber aktiviert Hier ver- 
mißt man einen Inverter in der 
Enable-Leitung. 


ECTRL dient in dem Pro- 
gramm als Kopie des Steuerre- 
gisters. Mit Zeile 63 schreibe ich 
diesen Wert ın den Ausgabe- 
port. Durch den Lesezugriff ın 
Zeile 64 wird dieser. Wert dann 
indas 

Steuerregister übernommen. Da 
der TAKE-Befehl nicht ohne 
Parameter auskommt, habe ıch 
eine DUMMY-Variable einge- 
richtet. Diese Variable dient nur 
als Ziel für Lesezugriffe, ihr In- 
halt besitzt keinen Aussagewert. 


Mit den Zeilen 68 und 69 wird 
eıne Adresse eingegeben, die als 
Eingangsparameter für die 
Funktion READBYTE dient. 
Diese gibt jeweils das gelesene 
Byte zurück, das hinter der 
Adresse auf den Bildschirm aus- 
gegeben wird, bis 16 Bytes gele- 
sen wurden. Die etwas merk- 
würdig anmutende Konstruk- 
tion in Zeile 74 ıst notwendig, da 
für Bıtfelder keine Addition de- 
finiert ist. Dabei funktioniert 
das Ganze nur deshalb, weıl die 
Länge des Bitfeldes und die 
Länge des FIXED-Formates 
genau übereinstimmen 


In der Funktion READBYTE 
wird zunächst das Bit 15 der 
Adresse für den Vpp-Pin, wie 
schon oben beschrieben, auf '1' 
gesetzt. In Zeile 42 wird das 
OE-Bit in ECTRL auf ‘0’ ge- 
setzt und anschließend ECTRIL. 
in das Steuerregister geschrie- 
ben. Mit Zeile 45 lege ich dann 


die Adresse an das EPROM und 
ziehe mit Zeile 46 den CS-Ein- 
gung auf '0'. Dadurch ist das 
EPROM selektiert. und es legt 
den Inhalt der adressierten Spei- 
cherzelle an die Datenleitungen. 
Von dort lese ich den Inhalt mit 
Zeile 47 ein. Da ich aus dem 
Eingangs-Latch lese. wird 
gleichzeitig CS wieder ‘I” und 
das EPROM _ deselektiert. 
Schließlich wird mit den Zeilen 
48 bis 50 noch OE wieder auf 
High gesetzt. 


Um von den 16 Eingabeportbits 
die unteren acht als Funktions- 
wert zurückzugeben. muß ich 
sie ın die obere Worthälfte 
schieben. Die zugrundeliegende 
PEARL-Philosophie habe ich ja 
oben schon näher erläutert. 


Programmieren 
im Hintergrund 


Doch nun zum eigentlichen 
Kernstück. Ein Problem beim 
Brennen von EPROMSs ist das 
programmgesteuerte Überwa- 
chen der Zeiten. Dafür habe ich 
den Timer C des Multi-Func- 
tion-Peripheral-Bausteins 
(MFP) benutzt. Dieser Timer 
wird in der Prozedur so aufge- 
setzt, daß er nach etwa 960 Mi- 
krosekunden einen Interrupt ge- 
neriert (Zeilen 127 bıs 141). Da 
sich die Peripheriebausteine im 
ST nur im Supervisor-Modus 
ansprechen lassen, schalte ich 
diesen in Zeile 126 ein. Ab Zeile 
143 starte ich dann den ersten 
Programmierimpuls. 


Jetzt müßte dıe Prozedur eigent- 
lich auf das Verstreichen der er- 
sten Millisekunde warten, bevor 
sie mit Verify und weiteren Pro- 
grammierımpulsen die Pro- 
grammierung fortsetzen 
könnte. Viele Programme dre- 
hen solange in einer Schleife ıhre 
Runden. Um diese Rechenzeit 
anderweitig nutzen zu können. 
schicke ich die Prozedur in den 
Zeilen 155 bis 157 "schlafen', 
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PROCEDUR IUR FROGAAMEERUNG LINES BYTES 
EINES 277% Dmos 


last updateı 01.12.86 [E27 


ELLLLILTLILTTELLELLLITITLTET TILL III III 
MODULE MEAD FOR MTOS-UM 


tor loader 


call dimsatener 
ratuen from groc. 
interrunts oft 
FINEDLIS) Dy ident 


bloch-byte ot a tank 
wusp. bit na in BLOCK 
PLTITELTILILLLLILITIETETETTITELTLTLLILI III 
ADORESS DEFINETIONS 


Interrupt vector delinitions 
[27 


reset 
waste laten in puls 
wasser taten out zule 
wwrro input port 
wusrra insut sort latched 
wur serial 1/0 cioc 
wiss usersort st 
DIE Output port 
OL Verinitions 
Per iR able reg 
mer In man reg 
MP timer CD ctri reg a 
PEP timer C data ri 
. nasse " “ 
SYSTEn VARIABLE DEFINITION 


cu wre 10 act. running IR 
wu #00 dinpstener-call Flag 
ww or 1D act. rwming tası 
wu wos Jump to dimpatcher 

ELLITITEIELTELELLILLLILLLLTETITET [7 
PROCELLSE WORKSPRLE DEF INETIONS 


aser wur e to program 
byte to program 


woran ctri reg 
ola IR vector 
IR Bullen nize 


MISCELLANEOUS DEFINITION 


Hay detinitions 
ruascu 0 initial program pule 
voveas [u 1 overprogram pulse 
moge sefinitions 
o 0 12, dr DIV 
oa dr ov 
timer data for I un 
mar 8.04 retries 
ELTILILILLILILILTE LIE 
Od WrTE or 
zu 


04 interrust butfer 
04 procedure workmace 


daten storage 
asir where to program 


Dazu setze ich im Statusbyte 
der aufrufenden Task das 
"SUSPend'-Bit. Damit ist diese 
Task für den Dispatcher nicht 
mehr lauffähig. 


Die Adresse des Statusbytes fin- 
det man über die Adresse des 
Task-Kopfes. Diese ist für jede 
laufende Task jeweils in der 
Speicherzelle TID (5802) abge- 
legt. Hierzu ist noch ein Offset 
von $24 zu addieren. Ist eıne 
Millisekunde verstrichen, feuert 
Timer C einen Interrupt, und 
der Prozessor springt die Inter- 
ruptroutine in Zeile 177 an. 
Dazu mußte ın der Prozedur der 
zugehörige Interruptvektor 
‘verbogen’ werden (Zeilen 131 
bis 135). wobei das oberste Byte 
erhalten bleiben muß. Tritt 
nämlich in der Interruptroutine 


ein Fehler auf, etwa ein Address 
Error, so kann das Betriebssy- 
stem anhand dieses Bytes her- 
ausfinden, über welchen Vektor 
die fehlerhafte Routine gefun- 
den werden kann. Für diesen 
Fall muß der Programmierer 
unmittelbar vor der Interrupt- 
routine den Offset zu einem 
"Fehlerausgang' ablegen. Dieser 
Fehlerausgang muß dann dafür 
sorgen. daß gerettete Register 
geladen werden und der Stack 
aufgeräumt wird. 

Ich setze außerdem den Timer 
zurück. so daßer keine weiteren 
Interrupts generieren kann. 
Dies gilt aber in dieser Form nur 
für Systeme mit dem 68000-Pro- 
zessor. RTOS läuft jedoch in der 
neuesten Version auch mit dem 
68010 und 68020, deshalb habe 
ich auch die Fehlerbehandlung 
für diese angegeben. Da der 
68020 alle 32 Bit als Adressen 
gebraucht (und nicht nur 24 wie 
der 68000). ist das obere Byte 
nicht verfügbar. Damit man 
trotzdem im Fehlerfalle heraus- 
finden kann, welche Interrupt- 
routine gerade lief, muß diese 
ihre Vektornummer in der Zelle 
IID ($7FE) eintragen, nachdem 
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return, 18 DIE 
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JOOFF „D no ron 
"OA.L RAIN. etuen value 
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Brenare anıthing for programming 
clear © 
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initialize Hlagn 
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eneck program voltage 
di IV weiectec 
weiect von = 12,90 
eneck aupply voltage 
v1 DV melectes 
weieet vec = aV 
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ECTMIADI  neleet vec = 
no ıra allomed 
TEDC®, Do mit timer C 
0,00 10 prancaler 
„TCDOR 


3 99apa3 


“Ting, tcom wet timer C data reg 
TOwer,ar Er timer C vector 
AUT OWELIAD) save old IR vector 
get adar 04 IR routi, 
ar, canı wer nem vector 
ADMEL IA, (Al) recover HGB of vertont 
clear timer C I6Q mankı 
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5 
b 
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Hirat program zuln 
“EINSLS,FLEGSIADI First program puls 
base ador for output 
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at data latcn 
ECTRMIADI,DI get eprom ctri reg 
VAl,DI.L) write to output port 
wıoc 
A0R.1,D1 
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wa 
MORAL OMTIDIADI,AI ger on tanı 1D 
@ELHESU, BLOCH IT sunpend Itselt 
“ur, emasie interrunte 
call dissatcner 


restore cola IR vector 
or na ira allowed 
Lea TOVEC,a ssor timer C vector 
MOME.L OLDVECIATI.IEIN restore ole IE vecters 
Mol -eDar,s® enanie interrupts 

ve bacı to caller 


REGISTER UGE 
Dutput part base address 
aus 04 interrupt buffer 
aarenn ol proceaure worinpace 


VEMAL-EPIEG  malfunction linr 
119,-an sur old 18 ID 
TCvEc, 110 1b 
IKT} ware register 
aser 04 IR nulter 


Junt now programmes byte 
wein /CE nıan 
=,ECTRLIADI  disanie data Jatcn 
"a,Cctm ia  /OE Io 


sie die vorher dort stehende 
Nummer auf den Stack gerettet 
hat. Somit sind die Zeilen 177, 
178, 251 und 293 nur für Besit- 
zer der Update-Version notwen- 
die. 


An dieser Stelle möchte ich noch 
einmal ganz ausdrücklich dar- 
auf hinweisen. daß RTOS in 
gewissen Grenzen Fehler in In- 
terruptroutinen zuläßt. Es mel- 
det sich also nıcht gleich ab, son- 
dern hat hierfür eınen geordne- 
ten Rückfallmechanismus. 


In der Interruptroutine hole ich 
mır die Adresse des Interrupt- 
puffers, in dem ich vorher (in 
Zeile 103) auch die Adresse des 
Prozedur-Workspace abgelegt 
hatte, Dieser Interruptpuffer ist 
in den Zeilen 65 bis 75 definiert. 
Es werden dann solange weitere 
I-ms-Programmierimpulse auf- 
gesetzt, bis der geschriebene 
Wert auch wieder gelesen wer- 
den kann. Durch Multiplizieren 
der Anzahl der Programmierim- 
pulse bis zum ersten geglückten 
Verify mit 3 Millisekunden be- 
kommt man die Dauer des Im- 
pulses, mit dem nachgebrannt 
werden muß. Dabei muß der 
Timer eventuell mehrmals auf- 
gesetzt werden, wenn dıe Nach- 
brenndauer groß ist 


Wenn das Byte fehlerfrei pro- 
grammiert ist oder vorher cın 
Fehler auftrat, wird ab Zeile 277 
der Timer zurückgesetzt. Ab 
Zeile 289 wird dann die schla- 
fende Task wieder geweckt, in- 
dem das 'SUSPend'-Bıt zurück- 
gesetzt wird. Der abschließend 
aufgerufene Dispatcher teilt 
dann der Task wieder den Pro- 
zessor zu, wenn nıcht noch Ak- 
tivitäten höherer Priorität ım 
Gange sind. 


Als Funktionswert wird entwe- 
der das programmierte Byte 
oder eine negatıve Fehlernum- 
mer zurückgegeben, Folgende 
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code no wror 

FLAGS (AZ) Overprogram done? 
dr it’ done, erit 
stop tiser C 


more than 236 ticke? 
vi yon, more 
=FONPRG,FLAGS(AZ) end of overprogram 
OT (a21,D2 get counter 
D2, 00T (a2) save ine rest 
wet timer C data reg 
stertitiser C 
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restore regintere, wait for ment tiner IR 
MOVEN.L {AT)*,DO-DI/M-A2/AS recaver ragn 
wa7+,110 recover old I1D 
all In od 
dinpatcher. call? 
bi no proc. switching 
normal mit 
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Hen ver = vo = W 
sable data latch 
ar autput port 
ww etri register 
get program addrans 
sr rs 
wite to outzut port 
ICE Tom 
eisar D2 
wait 


read input. port 
ICE nign 
DYTEel.A,D2 test dor equal 
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“ter retun value 


reset userport 
dinsle timer C IRQ 


1039000FFA13 manı timer C IRQ 
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Die Assemblerroutinen 
ermöglichen es, unter 
RTOS Im Hintergrund 
EPROMSs zu brennen. 


Fehlernummern können auftre- 
ten: 


-I: Byte läßt sich nach 25 Pro- 
grammierpulsen noch nicht le- 
sen 


-2: Fehler innerhalb der Inter- 
ruptroutine 


-3: Fehler beim Verify beı ab- 
geschalteter Programmierspan- 
nung 


Es würde den Rahmen eines Ar- 
tikels sprengen, ein komplettes 
EPROM-Programmierpro- 

gramm mit allem Komfort vor- 
zustellen. Auch läßt sich sicher 
die Fehlerbehandlung stärker 
differenzieren. So wird zum Bei- 
spiel die vorgesehene Über- 
stromerkennung bei falschem 
EPROM-Typ nıcht berücksich- 
tigt. Auch könnte man überprü- 
fen, ob sich eın Byte überhaupt 
noch programmieren läßt, wenn 
vorher schon ein anderer Wert 
eıngebrannt wurde. Das abge- 
druckte Programm sollte also 
lediglich als Grundlage und An- 
regung für Ihre eigene Pro- 
grammentwicklung unter 
PEARL verstanden werden. dp 
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DU OO ODE 

US WIDE 1 ICOOOFFFALS 

286 MONTE LOJSCEFFAID stop time C 
07 MOER O2OOOE 


DR MODEL 1ICOOOEFrAiD . 

209 OrE DVERoc "OERL OMTIDLADI, A get on tanı ID 

700 VER ER BAR "LABEL. BLOCK ION dimar aunpend dit 
SG -ı1,TeC marı dinpatener call 
MOVEN.L 1ATIe, DO-D2/A0 recover regn 
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get adar 04 IR Dufler # 


1 /URRRRRERERURTERERRITERRRERENEHERELERRELRRRERRRSRATRRERTRTERRRRERRR/ 
‚. 
3 78 Eintaches Programm zum Aufruf der Eprom-Programmier-Proredur 
un 
Sr/0 last wodateı 1.12.86 19000 
er 
7 /RRRRRSURTRRIRERERRERERRERURKERRERERTERERERERRRURTERRRRARERERERCMmE/ 
8 OnLE 1ı 
9 SrSTen; 
10 alı 
11 PROBLEN; 
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SPC P73s ENTAY PETUANSIFLIEDI GLOBALıH 


DCL WORD EiTtIe; 
DAL aDe FIIED: 
bCL PrTi£ FiIED; 
CCL MODE FlıED; 
DCL RTN FED; 


AUT "acarı " TO AI BY SrIf,M; 
GET wORD FROM Mi Er SIP,Bala)ı 
AD® = TOFINEDIWORDI ı 


PUT 'dytei " TO Al BY SrIf,cı 
GET WORD FROM AI BY SrIr,Bal2ı 
ErTE = TOFIIEDIWORDI : 


FUT 'moceı " TD AI BY SIP.A: 
GET WORD FROM Mi Er SrIP,Balıly 
MODE = TOFINEDIWORDI N 


RTN =» PISStADR,ErTE,moßei; 

PUT TOBIT(RTNI TO Al BY SIP,Baldıy 
,r end: 

38 MODEnD; 


SUEUNSSISIER 


So spricht man die 
Programmier-Prozedur 
aus PEARL-Programmen an. 
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Software- 
Upgrading 


Viele Ideen der 
Entwickler, vor allem 
aber auch der Nutzer, 
konnten mit dem Upgrade 1/87 
verwirklicht werden. 

Wie sich die neue Version 
im einzelnen von der 
bisherigen unterscheidet, 
möchte ich in diesem 
Beitrag beschreiben, der 
unsere Serie über die 
PEARL-Programmierung 
abschließt. Aus der 
Vielfältigkeit der 
Verbesserungen ergibt 
sich, daß ich diesmal 
kein größeres 
Programmbeispiel 
vorstellen kann. Auch bei 
Programmen sind die 
elerlegenden 
Wollmilchsäue selten. 


Wen die EPROM-Bank am 
Modulport des Atarı ST gestört 
hat. der kann jetzt RTOS-UH 
PEARL auch in einer Boot- 
Version auf Diskette erhalten. 
Diese unterstützt den Betrieb 
des e't-Userports ebenso wie die 
bisherige B-Version. In der Dis- 
ketten-Version legt sich RTOS 
in den oberen Teil des RAM. ab 
etwa $D6000. Somit stehen 
beimST + noch über 870 KByte 
freien Speichers zur Verfügung 


Beim Kaltstart füllt alserstes die 
neue Systemmeldung auf. Süu- 
berlich geordnet erscheinen jetzt 
die Überschrift und die Namen 
der System-Komponenten auf 
dem Bildschirm. letztere mit den 
aktuellen  Versionsnummern 
Schon an diesen kann man er- 
kennen. daß sich zwischenzeit- 
lich so einiges getan hat 
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Die bisherige Beschränk ungauf 
sechs Buchstaben für Namen 
kann jetzt niemand mehr als 
Ausrede für unverständliche 
Abkürzungen heranziehen. 
Künftig kann der Programmic- 
rer bis zu 24 Buchstaben zu ei- 
nem bezeichnenden Namen nut- 
zen. (Ausnahme: Dateinamen 
dürfen weiterhin nur acht Zei- 
chen lang sein.) Diese Änderung 
kann Probleme nach sich ziehen 
bei Programmen, diedavon aus- 
gehen, daß Namen nicht länger 
als sechs Buchstaben sind. Diese 
mussen entsprechend geändert 
und neu übersetzt werden. 


Ein wenig in Richtung MSDOS 
und EP/M geht die Änderung 
des Trennzeichens hinter Da- 
tenstationsnamen: hier ist der 
Punkt dem Doppelpunkt gewi- 
chen. Nur in der Dation-Spezi- 
fikation im Systemteil von 
PEARL-Programmen wird 
auch weiterhin der Dateiname 
durch einen Punkt von dem 
Namen der Datenstation ge- 
trennt 


Im diesem Zusammenhang 
möchte ich auf die Datenstation 
"UL: hinweisen, die ein wenig 
ein Schattendasein führt. Sie ist 
in der Tabelle der Stationsnu- 
men inder Spalteder ACIA 2zu 
finden. Diese Datenstation ist 
für die Kommunikation mit an- 
deren Systemen gedacht. die zur 
Satztrennung nicht ein einfa- 
ches CR, sondern CR-LF ver- 
wenden. Wenn man von der se- 
riellen Schnittstelle ein derarti- 
ges File ın ein ED-File kopiert, 
ist jede zweite Zeile eine Leer- 
zeile. Um diese störenden LFs 
zu eliminieren, kann man die 
Station 'UL:* benutzen, etwa 


COPY UL:>ED.SI 

Ansonsten verhält sich "UL:" ex- 
akt wie die Datenstation B2. 
Pipes mit Namen 
Vielfältig ließ sich auch bis jetzt 
schon die Daten-Pipeline VI/ 
VO nutzen. Jetzt kann man für 
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diese Datenstatjon zusätzlich 
Namen angeben und damit be- 
liebig viele, voneinander ge- 
trennte Datenkanäle zur Kom- 
munikation zwischen Program- 
men einrichten. Will man etwa 
ein Programm aus mehreren 
Modulen von der Diskette di- 
rekt in den Speicher laden. so ıst 
dies jetzt mit 


P F0.MÖDULEI > VO.PI 
P F0.MODULE2> VO.P2 
P F0.MODULE3> VO.P3 
LOAD VI.PI + VI.P3 
LOAD VI.P2 


möglich - ohne die Gefahr, daß 
Daten irgendwie gemischt wer- 
den. Sind noch Daten in einem 
Datenkanal, die nicht mehr ge- 
braucht werden, so lassen sich 
diese mit 

RM VO.MIST 


entfernen. RM ist ein neuer Be- 
fehl des Kommandointerpreters 
und steht als Kürzel für Re- 
Move. Genau wie der Befehl 
gleichen Namens unter MSDOS 
dient er zum Löschen von Da- 
teien oder, wie erwähnt, zum 
Schließen von Datenkanälen. 
Time-Sharing 

Ein gänzlich anderes Systemver- 
halten läßt sıch durch den Be- 
fehl SHARE PRIO xyz errei- 
chen. Normalerweise bearbeitet 
RTOS immer die Task höchster 
Priorität. solange, bis sie fertig 
oder nicht mehr lauffähig ist. 
Haben Tasks dieselbe Priorität, 
so wird zuerst diejenige abgear- 
beitet, die in der Liste vorne 
steht. Ist diese erste Task in der 
Liste aber ein ‘Dauerrenner', so 
kommen die übrigen nicht zum 
Zuge. 


Hier setzt nun das SHARE- 
Kommando an. Es erzeugt eine 
Subtask, die sich als erstes Glied 
einer Prioritätsebene einbaut 
und die auf diese Priorität ent- 
fallende Prozessorkapazität an 
die nachfolgenden Tasks ver- 
teilt. Damit sich SHARE an die 


erste Stelle in einer Prioritäts- 
ebene 'vordrängeln’ kann, muß 
die beim Aufruf angegebene 
Priorität um eins höher sein als 
dıe der Prioritätsebene, in der im 
"Time-Sharing’-Verfahren gear- 
beitet werden soll. Will man also 
etwa mehrere Compiler parallel 
arbeiten lassen, die normaler- 
weise dıe Priorität 20 haben, so 
ist SHARE PRIO 19 aufzuru- 
fen. Mit einem UNLOAD 
SHRDxx läßt sich wieder auf 
rein prioritätengesteuertes Ver- 
halten zurückschalten. 


Erweitert worden ist auch der 
S-Befehl, mit dem man sich die 
Speicherbelegung ansehen 
kann. Da die verfügbaren Spei- 
cher und mıt ihnen die Dateien 
immer größer wurden. faßt der 
S-Befehl jetzt aufeinanderfol- 
gende ED-File-Blöcke. die zu ei- 
ner Datei gehören. zusammen 
und kennzeichnet dies durch ein 
°+' hinter der zweiten Adresse. 
Will man alle Blöcke angezeigt 
bekommen. kann man dies 
durch den Befehl 'S A’ errei- 
chen. 

Eine Besonderheit der Atari- 
ST-Implementierung. der Be- 
fehl HCPY zum Drucken einer 
Bildschirmgrafik. ist jetzt mit ei- 

ner Schnittstelle versehen wor- 

den. Wer einen Matrixdrucker 

hat. der nicht IBM-kompatibel 

ist, kann sich jetzt seinen eige- 

nen Treiber schreiben und an 

diesen Befehl anbinden. 


Mit ä, ö, üund ß 


Mit dieser Revision hat die Ter- 
minalemulation die deutschen 
Umlaute und Sonderzeichen ge- 
lernt. Mit 'ESC E' beziehungs- 
weise ESC R' läßt sich zwischen 
deutschem Zeichensatz und 
US-ASCII hin- und herschal- 
ten. Da der Zeichensatz jetzt im 
RAM liegt. kann man aber auch 
eigene Zeichensätze laden oder 
einzelne Zeichen ändern. Bei der 
Programmierung von Bild- 
schirmmasken dürfte von Nut- 
zen sein, daß der Cursor jetzt 
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last update: 18.01.80” 
LLIITETTTT 
System: 
alı 
PROBLEM: 
SFC Al DATION INOUT ALPMIC CONTROL IELL IE 


SPRITL EnTEr 


0 
v 


«@IrED, FISED. FiNED. FINED, OmAısı, PITiIo)) GLOBAL: 


SPRITS Entsr 


«FiVED,. FiInED, FirEd, FIIED, Omaidı, BITiar) GLOBMLı 


TIRCLE Enter (FINED, FIXED. FINED, FIIEDI GOBAL: 
TEIT ENTEY (FISED, FIIED, FINED. Osätaor) GLOFAL: 
CURPOS ENTRY ICHER, CHAR GLOBALE 


Pltkiors 78 to save picture under tet 8 


u on 
procedure to posıtim tne cu 


SUERHRUREIERERKERERARRERTEKRERKUERRTERRRKKRRKRDDRRRRRRRARRUNEREN/ 


CUASET: PROC trom FIIED, column FiNED) 
sur ESC, '='. TOCmäkirom +» TI), TOCmäkienlumn +» 32) 
10 51 BY (5 
end 


Tase; 
dcr In, vr FlIED: 
Ber ıcı, Cm Flıldi 
6CL Colour FlIEd: 


Ci = u 
Cr. 
PUT ESC.'e" 70 Als ‘u clear tne screen 
Cat CURSET (Cv. Ci; +8 position the Cursor 
FUT ESC. ’E'. ESC. "GBlberschrist' TO Al BY (&)Ar FR underline 
pur ESC TO Ar br (aa; /8 reset underli 
Crecvon 
FOR I TO 9 BErEAT 
Car LE 1m 8 
Ta LINE u. 
End: 
CAaL CIEAE 190, ©, 


/8 dram dor 


» and circie 


FOR 1 10 46 REFERAT 
CL GETFIN I5, v. Colours 
IF Colow E01 


/U test colour of pirei 
48 ı# pizel set (b/m), . 
MEN Cr = Cr =* ti #8 Cursor lıne down 
rim /U to save position of pirel on screen 
CAL SERITL (8, Yan, 16, MAIN’, SavEis 
CL TEIT (7, v. -1, 'nello’dı #8 write inverting tert 
CL CURSEr cv, cn /R wite Cursor position and time 
et Re. aka N Bart EA 
METER 0.25 SEC FESUME: 
CAHL SPRITS (1, Y, 40, 16, MAIN’, SavEıı 
vereh 
veren 
End 
CL TEıT (m, v, 1, "nellorit 
AL TEIT (re 2, = 19, 1. world’ 
2 E01 


/b wait a moment .. 
/l restore screen 
+8 advance tert position 


/t write solid tewt 


Warzeitı Tasr PRIO 11 
KL tolacı, olacr) Oakı 


CaL ORFOS tolacı, oldcrıı 


#8 get current cursor position 
CALL CURSET (6, 7201 


A set Cursor to upper right corner 


"Om TO AI ER (DI CAFIDI A, TEIOG 


v 
v 
v 


absolut positioniert werden 
kann. Außerdem gibt es eine 
Einbaufunktion CURPOS. mıt 
der die augenblickliche Cursor- 
Position abgefragt werden 
kann. In dem Demo-Modul ist 
sie in der Task ‘Uhrzeit’ zu se- 
hen. Damit man direkt mit den 
erhaltenen Werten den Cursor 
wieder positionieren kann, wer- 
den als Parameter Daten vom 
Typ CHAR benutzt, die auch 
schon den Offset von $20 ent- 
halten, wie er für "ESC = xpos. 
ypos’ gebraucht wird. 


Uhrzeit’ ıst eine Task. dıe den 
Stand der Systemuhr ın die 
obere rechte Ecke des Bild- 
schirms schreibt. Plant man 
diese Task regelmäßig ein, er- 
halt man immer die aktuelle 
Uhrzeit. Ein Problem ergibt sich 
aus der Datenstationsstruktur 
unter RTOS. Solange auf eine 
Eingabe gewartet wird, ist keine 
Ausgabe möglich. Es wäre ja 
auch nicht schön, wenn einem 
mitten ın eine Eingabe irgend- 
welche Daten geschrieben wer- 
den, die eventuell auch noch das 
augenblickliche Bild "wegscrol- 
len‘. Also kommt auch 'Uhrzeit" 
mit ihrer Ausgabe nıcht durch. 
solange auf eine Eingabe gewar- 
tet wird. Ein anderes Problem 
ergibt sich, wenn man den Edi- 
tor aufruft und "Uhrzeit" wei- 
terlaufen läßt. Auf dem Bild- 
schirm kann es dann manchmal 
chaotisch aussehen, wenn beide 
Tasks am Cursor herumpositio- 
nıeren. Aber dies sind natürlıch 
typische Probleme, die in einem 
Multitasking-System stets auf- 
treten werden, wenn man der- 
artıge Abläufe unsynchronisiert 
miteinander konkurrieren läßt. 


In dieser kleinen Task ist noch 
eine weitere Neuerung enthal- 
ten, nämlich eine Erweiterung 
des Sprachumfangs des 
PEARL-Compilers: NOW ist 
vom Datentyp CLOCK und lie- 
fert die Uhrzeit des Systems. 
Dank dieser Erweiterung 
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8 FUT NOw TO Al BY Ti@s 
83 PUT ESC, "=", 
Ba Endı 

e 

e3 

89/000 STAAT aaa 


XI tan to ını 
BBELTITIITITTTTTTI 


92 STARTı Tas 

92. ESC = TOCHAR(271, 

9% AL 0.3 SEC ACTIVATE Uhrzeit 
93 ACTIVATE DEMO: 

9 END: 

” 


#8 MODEND, 


Dieses kleine 
Demoprogramm führt die 
verbesserten Grafik- und 
Terminalfunktionen vor. 


konnte die frühere Pseudoda- 
tenstation "CL’ entfallen. 


Mehr Grafik 
unter RTOS 


Die Task DEMO stellt die ver- 
besserten und zum Teil neuen 
Grafikfunktionen vor. Die 
Funktion LINE ist schon be- 
kannt, wurde aber wesentlich 
schneller. Außerdem kann hier, 
wie bei den Funktionen 
SETPIX. CIRCLE und TEXT, 
ein Invertieren der Pixels er- 
reicht werden, indem man den 
Farb-Parameter mit negativem 
Vorzeichen angıbt. Ein zweima- 
liger Aufruf bei gleichen Koor- 
dinaten erzeugt also wieder das 
ursprüngliche Bild 


CIRCLE ermöglicht es. sehr 
schnell Vollkreise zu zeichnen. 
Dabei können Mittelpunkt. Ra- 
dius und Farbe angegeben wer- 
den. Ist der Kreis nicht ganz auf 
dem Bildschirm darzustellen. so 
wird dies von CIRCLE abge- 
fangen. Man braucht also keine 
Sorge zu haben. daß ırgendwel- 


che Speicherbereiche über- 
schrieben werden 
SPRITL und SPRITS sind 


RTOS-Anwendern dem Namen 
nach schon bekannt, haben aber 
ihr Verhalten ein wenig geän- 
dert. Während in der alten Ver- 
sion indem BIT(16)-Feld immer 
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olacı, olaCy TO Al Er talaı 


+8 display current time 1/ 
#k restore curım WU 


mit einer Wortgrenze beginnend 
abgespeichert wurde (auch 
wenn die Position xpos nicht auf 
einer Wortgrenze lag). werden 
jetzt die Bits geschoben. bis das 
Bit der Position xpos als MSB 
zu liegen kommt. Das ist natür- 
lich zeitaufwendig und hat diese 
Funktion verlangsamt. Dafür 
kann man aber jetzt Bitmuster 
über den Bildschirm bewegen. 
ohne sich mit der aktuellen Po- 
sition innerhalb eines Wortes 
auseinanderzusetzen. Richtet 
man es ein, daß xpos mit einer 
Wortgrenze zusammenfällt, ıst 
auch das alte Tempo wieder da. 
Mit TEXT kann man auch auf 
Nebenbildschirmen. wie man 
sie auf dem Atari unter RTOS- 
UH einrichten kann, Texte aus- 
geben. Diese Texte lassen sıch 
pixelgenau positionieren, sind 
damit aber auch entsprechend 
langsamer als die Textausgabe 
auf dem Hauptbildschirm. Ein 
auszugebender String kann bis 
zu 80 Zeichen lang sein. An- 
schließende Leerzeichen werden 
nicht mit ausgegeben. Wie bei 
der Funktion CIRCLE wird 
auch hier automatisch die Bild- 
schirmgrenze überwacht und 
ein Überschreiben anderer Spei- 


cherbereiche verhindert. 


Verbleibt noch die Funktion 
GETPIX. das Gegenstück zu 
SETPIX. Mit ihr läßt sich die 
Farbe eines Bildschirmpunktes 
ermitteln. Dazu wirdeine Varia- 
ble ‘color’ übergeben. in die die 
Funktion die vorgefundene 
Farbe hineinschreibt. In der 
Task DEMO benutze ich diese 
Funktion. um jedesmal, wenn 
der wandernde Text mit seinem 
Bezugspunkt links oben eine der 
Linien kreuzt. diese Position auf 
dem Bildschirm zu speichern. 
Dies geschieht durch das Inkre- 
mentieren der Cursor-Posi- 
tionszeile, das nachfolgende Po- 
sitionsausgaben eine Zeile tiefer 
erscheinen läßt. 

Das Resultat der Task DEMO 
ist in dem Bildschirmausdruck 
zu schen. Die von der Task 
Uhrzeit‘ stammende Zeitan- 
gabe steht oben rechıs. Deutlich 
werden hier auch noch einmal 
zweı der erweiterten Fähigkei- 
ten der Terminalemulation. 
nämlich deutscher Zeichensatz 
und dıe Möglichkeit. Texte un- 
terstrichen auszugeben. 


Noch mehr 
Einbaufunktionen 


Einer der Wege, Datenströme 
zu lenken, resultiert aus der 
Möglichkeit. ın PEARL dıe Na- 
men von Datenstationen als Pa- 
rameter an Prozeduren zu über- 


Text-Grafik-Mischung, 
Cursor-Positlonlerung und 
„Positionsabfrage sind sehr 
viel einfacher geworden. 
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geben. Wie dıes genau abläuft. 
habe ich bereits in Teil 4 dieser 
Serie beschrieben. Einen ande- 
ren Weg. bei dem nicht schon 
bei der Programmentwicklung 
die Datenstationen des Zielsy- 
stems bekannt sein müssen, 
stellt die Funktion ASSIGN 
dar. Damit kann der Daten- 
strom einer spezifizierten Da- 
tenstation auf eine namentlich 
zu benennende umgeleitet wer- 
den. Dazu werden ihr die 
Adresse (IDENT) der Daten- 
station. deren Daten umzulen- 
ken sınd. sowie ein String. der 
den neuen Stationsnamen ent- 
hält, übergeben. In Verbindung 


ASSIGN und TASKST sind 
zwei der neuen 
Einbaufunktionen. 


mit der Möglichkeit. beim Öff- 
nen einen File-Namen angeben 
zu können, lassen sich somit 
nahezu alle Datenwege errei- 
chen. Zu beachten ıst, daß 
eine Datenumlenkung. die mit 
ASSIGN durchgeführt wurde, 
überall innerhalb eines Moduls 
gültig ist. Wurde die Datensta- 
tion global vereinbart, reicht die 
Wirkung sogar über das eigene 
Modul hinaus. 

Ein Hilfsmittel ganz anderer Art 
stellt die Funktion TASKST 
dar. Mit ihr läßt sich der augen- 
blickliche Status einer Task fest- 
stellen. Dazu wird der Name der 
Task ın einer CHAR (24)-Varia- 
blen übergeben. Als Resultat 
bekommt man einen BIT(32)- 
Wert Erhältman 'FFFFFFFF' 
als Resultat, so existiert keine 
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DENrD neue Eindaniunitionen 


onı ED.LONGDUmmrKümt: 


ASSIGN und TASSST 


“ DATIOM INDUT ALFHIC CONTROL tALLI: 
OicDation DMTION INDUT ALFRIC CONTROL IALLIE 


TASıST ENTEF ICmaRI TEN RETUENS IEITIIDIN GLOFAL: 
ASSION ENTRY IDATION INOYT ELFMIC CONTROL (ALL) IDENT, 
Cmaa2arı GLOBEL: 


20; 
zu 


Al Er Sin. 
ai br Siena: 


CL MSSICHIOlaDerıon, DestDatims 


OPEN OlaDation Br IDFiDes 
» ENDı 78 Testiı Tası 8/ 
Testlı Tasıı 
DEL Tasınane 
” 
+72 
8 


„ 7 Statun.BITITD) REFEAT 


“0 SETER „2 SEC RE 
“ Status = TAMST nareli 
42 END: 

4 

44 End; 7/8 Testlı Tası 07 

“ 

46 MODENDı 
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get Dationna 
and Filenane 


set Dation 
end Filenane 


/8 wait until tash Finished 8/7 


Task dieses Namens. Ansonsten 
sagt das MSB (Bit 31) aus. ob 
die Task in der Dispatcher- 
Queue steht und somıt aktiviert 
wurde. Dieses Bit wird °1’, wenn 
die Task in den Zustand 
"DORM', also schlafend. geht. 
Die Bits O0 bis 7 enthalten die 


‚Information, ob dıe betreffende 


Task irgendwie eingeplant ist. 
Sind sie alle °0°, so liegt keine 
Einplanung vor. Die Bits 8 bis 
15 sagen schließlich aus. warum 
eine Task eventuell nicht lauffä- 
hig ist. Dies ist zum Beispiel der 
Fall. wenn sie suspendiert ist 
oder auf eine langsame Eın- 
Ausgabe oder auf die Zutei- 
lung von Workspace durch das 
Betriebssystem wartet, Gänz- 
lich unproblematisch ist auch 
diese Funktion nicht. Während 
eine Task nämlich noch das Re- 
sultat auswertet. kann natürlich 
die untersuchte Task zwischen- 
zeitlich längst ihren Status wie- 
der geändert haben. Die Sıtua- 
tion ıst vergleichbar mit der 
beim L-Befehl des Komman- 
dointerpreters. Auch hier wird 
eine Aussage gemacht, die even- 
tuell schon nicht mehr stimmt. 
Aus Full-PEARL stammt der 
jetzt ebenfalls verfügbare Ope- 
rator REM. Mit ihm läßt sich 
der Rest einer Ganzzahldivision 
bestimmen. So ergibt 15 REM 
4 als Resultat den Wert 3. 


REFs — nicht ganz 
ungefährlich 


Ebenso aus Full-PEARL 
stammt die REF-Variuble. Hin- 
ter dieser Bezeichnung verbirgt 
sich nichts anderes als eın Poin- 
ter. Ein solcher Zeiger kann auf 
die Grunddatentypen sowie auf 
Strukturen zeigen. nicht aber 
auf ganze Felder - einzelne 
Feldelemente wiederum sind zu- 
lässig. 

Die Verwendung von Zeigern ist 
grundsätzlich nicht unproble- 
matisch. Der "Vater des 
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RTOS-UH/PEARL-Systems, 
Professor Dr.-Ing. Wilfried 
Gerth, schreibt dazu in dem 
neuen Handbuch: "Wer mit 
REF-Variablen arbeitet, begibt 
sich in einen Raum, in dem un- 
ser Compiler keinen Schutz vor 
Unfug mehr geben kann! Eine 
Zeigervariable kann wer weiß 
wohin zeigen - und damit kann 
wer weiß was im System zerstört 
werden. Gleichwohl sind aber 
mit REFs Konstrukte program- 
mierbar, die ihren (gefährli- 
chen) Einsatz rechtfertigen." 


Deklariert wird ein Zeiger wic 
eine normale Variable mit dem 
Unterschied, daß statt ‘Daten- 
typ’ jetzt "REF Datentyp’ steht. 
Auch REF-Variable lassen sich 
bei der Deklarierung initialisie- 
ren (REF-Syntax, Zeile 6). Ge- 
nau zu unterscheiden ist stets 
zwischen dem Setzen eines Zei- 
gers und der Zuweisung eines 
Wertes an die Variable, auf die 
der Zeiger zeigt. Im letzteren 
Fall wird auf der linken Seite der 
Zuweisung der Operator CONT 
verwendet. Da damit eindeutig 
ıst, daß es sich nicht um das 
Setzen eines Zeigers handelt, 
steht auf der rechten Seite kein 
CONT. So wird in dem Listing 
DEMO REF-Vanable in Zeile 
65 der Zeiger Ptr gesetzt, wäh- 
rend in Zeile 68 der Variablen. 
auf die Ptr zeigt, der Inhalt der 
Struktur Work zugewiesen 
wird. 

In dem Programm DEMO REF 
ıinitialisiere ıch in der Task 
TEST durch Zeiger verkettete 
Strukturen. die jeweils einen 
String, seine Position auf dem 
Bildschirm sowie ein Attribut 
enthalten. Die Prozedur Draw- 
Tree gibt die Strings in der Kette 
ab einem wählbaren Glied an 
der angegebenen Stelle auf dem 
Bildschirm aus. bis das Ende der 
Kette gefunden wird. 


Zeigt eine REF-Variable auf 
eine Struktur, wird die gleiche 
Syntax verwendet wie bei der 
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ERPITTILTELELLEITELTITTEITITTT 


? IF Zeiger 15 Zanı TMEn 


/HRELELEILHEREERTEREEREEERSRRESTTERERTRREGERERENBERRRRHLLERKUTERRHERER/ 
nn SYNTas FEF-Varıadle v 
ELLITETTIETEITTITTESTITITITIIIIII IT 


DL Zanı Flred: 
DL Zeiger PER FIIED InITilaniıı /0 Deriaratıon una Initialisierung 87 


teiger = danlı Zeiger 
CONT Zeiger = Zanlı ger Yarı 

sen Innalt 
Zeiger zeigt 


IF leigeri IS0T Zeiger? 
TEN .. In Zeiger zeigen auf verschiedene varıaala 1/ 


DLIITETTITTTT srereraenennnene 


DENO KREF-Voarıadie 


2 [ILL 
MODLLE Mi 
SrSstem 


DATION INDUT ALFMIT CONTROL täLı: 


TIFE OBJECT STRUCT 47 
String Rn, 
cr FLIED, 
ev FluED, 
Selectes Fit, 

For FEF OBJECT 
Zr 


DL Treeiinr OBJECT: 
pa Esc ma; 


Dranfree: PROC (Startonı OBJECT): 
DA ftir RER OBJECT 
DCL Dane BITi 


Done = "ur: 
Ptr = Startobji 
WHILE NOT Done REFERAT 
IF Ftr.Selectes 
THEM FUT ESC, 64" 10 Sr 
Fin: 
PUT ESC, "=", TOCHARIFLr.CH * 721, TOCWikiber Che ID 
10 Al Br (a 
FUT Ptr.Strang, ESC. "Go TO Alı 
IF Ptr,Forl IS MIL 
THEN Done = 'I'6i 
ELSE Ptr = Ftr.Forli 
Fin: 
End; 
END: 78 Drautreei PROC ı/ 


Vret attriduter ınverse fl 


TESTı Tasıı 
va c Crakı 
XL wor OBJECT: 
MA Fer BER OWIECT, 


ESC = TOCMaRı2? 
Pte = Treeii)ı 
TO 10 REFERAT 
Ptr.Forl = nie 
CaLL REFADD (Ptr, 19 
EnDdı 
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Ftr » Treeiilı 
Ptr.Fori = Treeidlı 
Prr,cv = 107 Pir.Cu = 201 


Cost tr » worst 


Per = Treeiätı 
Per.Forl = Nitı 
Prr.cr = 1iı Prr.ct e a0 


PUT ESC,'0" TO Al 
CaL Drautreeitrenid)); 
GET C Feom al Sir. 
PUT ESC,'e" TO AL 
CAL DrautreeiTreeii)i; 


END: 0 TEST: TASe 8 


Pir.String = "ROOT"; 
Prr.Selectec = '1'Bı 


Work 
work 


Per. 
nr. 


String = 'meilo.'ı 


.'Frienas'ı 
... 0m 


+0 clear entire wereen # 


u clear entire screm # 


REF-Variablen - ein weiterer Schritt in Richtung Full-PEARL. 


Struktur-Variablen selbst. um 
auf die einzelnen Elemente zu- 
zugreifen (Zeile 35 bıs 37) 


Als Inhalt für nicht gesetzte Zei- 
ger gibt es NIL. Mit diesem 
Wert initialisıere ich die Zeiger 
in dem Feld Tree ın Zeile 56 bis 
59. Dies wird später zur Erken- 
nung des Endes der Zeigerkette 
gebraucht. Die Einbaufunktion 
REFADD. die ich dabei be- 
nutze, setzt den Zeiger um je- 
weils ein Daütenobjekt weiter 
Dabei muß sich der Program- 
mierer nicht um die Frage küm- 
mern. wıe viele Bytes das ein- 
zelne Datenobjekt lang ıst. Um 
so mehr muß er aufpassen, daß 
mit REFADD der Zeiger nıcht 
das Feld verläßt und das Be- 
trıebssystem gefährdet, Diese 
Initialisıerung hätte natürlich 
auch mit einer benamten Schlei- 
fenvariable als Index durchge- 
führt werden können. Mit der 
REF-Variablen ıst man aber 
schneller, da REFADD keın 
Funktionsaufruf ist, sondern 
vom Compiler direkt in entspre- 
chenden Maschinencode umge- 
setzt wird. Dies macht sich vor 
allem bei größeren und mehrdi- 
mensionalen Feldern in einem 
zeitlichen Faktor von 2 bis 6(') 
bemerkbar. 
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Bleibt noch das Problem, Zeiger 
zu vergleichen. Zu diesem 
Zweck gıbt es IS und ISNT. Auf 
diese Weise stelle ich in Zeile 38 
fest, ob das Ende der Zeiger- 
kette erreicht ist. Ist es nicht er- 
reicht, wird in Zeile 40 der Zei- 
ger auf das nächste Glied in der 
Kette gesetzt. 


Bei Prozeduraufrufen werden 
Zeiger generell dereferenziert. 
Das heißt, daß immer der Inhalt 
der Variablen, aufdie der Zeiger 
zeigt, übergeben wird. Ein Zei- 
ger kann nur innerhalb einer 
Struktur an eine Prozedur als 
Parameter übergeben werden. 
Die Struktur kann natürlich als 
alleiniges Element den Zeiger 
enthalten. 


Für 68020 vorbereitet 


Mit der neuen Version ergeben 
sich auch Änderungen für den 
Assembler-Programmıerer, Sie 
ist nämlich auch für Rechner 
mit der CPU 68020 vorgesehen 
und braucht deshalbetwasmehr 
Platz ım Task-Kopf als früher 
Dort, wo bisher 40 Bytes Platz 
freizuhalten waren, mussen es 
jetzt 64 Bytes sein. Natürlich 
laufen alte Systeme auch mit 
diesen längeren Task-Köpfen, 
nur umgekehrt kann es schnell 


zu unangenehmen Folgen kom- 
men. 


Die jetzt möglichen längeren 
Namen haben natürlich nıcht 
mehr in dem alten Namensfeld 
Platz. Um trotzdem möglichst 
wenig an diesem zu ändern, ist 
jetzt, wenn man einen Namen 
mit mehr als sechs Buchstaben 
benutzen möchte, in dem alten 
Namensfeld dıe relative Adresse 
des Namens anzugeben. Die 
Unterscheidung zwischen Na- 
men und Adressen erfolgt an- 
hand der Bytes 5 und 6. des Na- 
mensfeldes. Sind sie beide 00. so 
wird angenommen, daß es sich 
bei den ersten vier Bytes um eine 
Adresse handelt, sonst werden 
die sechs Bytes wie bısher inter- 
pretiert 


Der neue Compiler ist dafür ver- 
antwortlich, daß der Assem- 
bler-Programmierer ein Regi- 
ster weniger zur freien Verfü- 
gung hat als bisher. und zwar 
das Register A6. Dies dient jetzt 
als Zeiger für verschiedene 
Laufzeitfunktionen und kann 
nıcht mehr frei benutzt werden. 


Wer Interrupt-Routinen kodie- 
ren möchte, hat künftig zusätz- 
lich die Zelle IID ($7FE) zu ver- 
sorgen. Genaueres hierzu habe 
ich ın der letzten Folge beschrie- 
ben. 


Besonders begrüßen werden As- 
sembler-Programmierer die 
vollständige Liste der Betriebs- 
system-Traps mit genauer An- 
gabe der Ein- und Ausgabepa- 
rameter ın dem neuen Hand- 
buch. Damit erübrigt sich so 
manches Probieren mit letztlich 
doch unsicherem Ergebnis 
PEARL-Programmierer finden 
ım neuen Handbuch die 
PEARL-Syntax in Backus- 
Naur-Form vor. Damit läßt sich 
nach einiger Übung sehr einfach 
überprüfen, ob Programme zu- 
mindest syntaktisch fehlerfrei 


sind & 
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RTOS-UH/PEARL 
auf VIMEDUS und ECB 


Sie kennen jetzt RTOS-UH und PEARL. 


Für den industriellen Einsatz von PEARL empfehlen wir Ihnen 
industrielle Bussysteme. 


Auf VMEbus mit der CPU68000 und auf ECB mit 68008. 
Oder als Einplatinencomputer für ganz kleine Lösungen. 


ELZET 80 liefert seit 1978 modulare 

Mikrocomputersysteme. Weit über 

100 Baugruppen für alle Anwendungsbereiche 
ELZET 80 gehören zu unserem Standardprogramm. 

Für Spezialanwendungen fertigen wir 
ee ae LT kundenspezifische Lösungen. Vertrauen Sie 


ee h a unserer Erfahrung! 


Tel.05232-8131-Tx. 931473 eizotd Wir senden Ihnen gerne Kataloge. 


Zum Beispiel: 12 ADA 


ITITINLEITS 
arsrrariter 


11 


ELZET 80 


Mikrocomputer GmbH & Co. KG 
Wilhelm-Mellies-Straße 88 


D-4930 Detmold 18 


Tel.05232-8131- 1x. 931473 eizet d 


z 


Zu VMEbus, ECB und RTOS 
beraten Sie gerne auch unsere 
Ingenieurbüros 

(mit Lager): 


ESmed GmbH 
Fehlerstraße 5 
1000 Berlin 41 
Tel. 030/851 1900 


MEK GmbH 
Düppelstraße 71 
2300 Kiel 1 

Tel. 04 31/804220 


GMS mbH 
Marquardstraße 62 
6000 Frankfurt 90 
Tel. 069/788752 


Meditec-Data GmbH 
Villastraße 9 

7000 Stuttgart 1 

Tel. 07111/283103 


PTL GmbH 
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— 12-Bit-A/D-Umsetzer 

— 12 Bit Linearität 

— 160. 32 Eingänge 

— Wahlweise 10/15/25 as 
max. Umsetzzeit 


— Eingangsbereiche: 
0..10V, #5V, 10V 


— Int. o. ext. Triggerung 
— S&H mit 3,5 as 


— Vier 12-Bit-D/As 

— Spannungsausgänge: 
0..5V, 0..10V, 
+2,5V, #5V, 10V 

— Max. Lin.fehler 1/2 LSB 


Einzelpreis komplett 


A/D mit 25 us und 
4 Kanäle D/A: 


2277,72 DM 
(1998,— DM +14 % MWSt.) 


Der Begriff „Multitasking“, EDV-Profis schon lange geläufig, verbreitet sich 
neuerdings wie ein Lauffeuer auch in der Mikrocomputerszene. Klar, ein 
moderner Mikroprozessor, vor allem einer aus der 16/32-Bit-Klasse, kann 
viel mehr leisten, als ein einzelner Benutzer ihm bei Standard-Anwendungen 
abverlangt. Warum soll die CPU dumm in der Eingabeschleife eines 
Textprogramms verharren, wenn sie doch gleichzeitig „im Hintergrund“ eine 
Datei sortieren, eine Mailbox bedienen und die häusliche Heizungsanlage 
steuern könnte? Unter RTOS-UH/PEARL ist das kein Problem. 


In diesem Büchlein geht es um die Programmiersprache, die in idealer Weise 
die Leistungsfähigkeit des Echtzeit-Multitasking-Betriebssystems RTOS-UH 
nutzbar macht. PEARL hat sich bei wissenschaftlichen, industriellen und 
militärischen Großprojekten schon seit langem durchgesetzt. Durch das von 
Prof. Dr.-Ing. W. Gerth entwickelte integrierte Programmiersystem 
RTOS-UH/PEARL für 68000-Rechner wurde Echtzeit-Multitasking auf 
Hochsprachen-Ebene auch für den privaten Anwender leicht erschwinglich. 
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